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Cuvint catre TINERI...... 


Ce Inseamna tineretea? 

Doua intelesuri va propun. 

In primul rind, o stare de prospetime, de sanatate, de 
vitalitate, de pofta de a tral, de vole buna, de vesele 
fireasca si spontana, de franchete, de dezinvoltura, de 
plenitudine, de placere si de bucurie de a se afirma, 
de neliniste stenica, de neastimpar recontortant, de o 
cuceritoare pofta de a nu fi de acord, de anu îi con- 
form, de o debordanta deschidere spre prietenie, spre 
lubire, de generozitate, de profunda curiozitate de a 
cunoaste, de dinamica aspiratie spre inalte tinte, de a 
face, de a crea ceva neobisnult. SI toate acestea si al 
tele, desigur, bine armonizate Intr-un organism tinar. 
Este tineretea fiecarui individ (individus=de neimpartit), 
tineratea fiecarei generatii. O tinerete trecatoare. Dar 
netrecatoare remin finalizarile acestor stari intr-o fapta. 
Acesta este primul inteles. 

SI toate acestea sau numai o parte si altele, desigur, 
dar care, cu toata trecerea timpului, ramin nealterate in- 
frumusetind sufletul si mintea si trupul aceluia ce le-a 
putut pastra neintinate, sporindu-le, si dindu-l Infati- 
sarea unul biruitor. O tinerete vesnica. Acesta este cel 
de al doilea inteles. Adica, insusiri, calitati specifice 
unei anumite virste, pot deveni stari generale si stern 
umane. 

Inteligenta Iscoditoare a tinerilor este o sublima 
bucurie. lata, imi amintesc. Intr-o zi din septembrie 
1986 a venit la mine tinarul inginer Calin Obretin cu 
propunerea de a alcatul, la Casa de cultura a studen- 
tilor, un cerc de calculatoare. S-a si Iintiintat Imediat. 

M-a Impresionat profund, si tralesc si acum, si-l vol 
trai mereu, acel sentiment, vazind cum elevi, studenti, 
absolventi veneau sa se Intiinesca, In fiecare duminica 
dimineata, aproape fiecare cu calculatorul lul, cu 
reviste, cu calete. Totul era firesc. Totul era spontan. 

Activitatea acestul grup deschis, indreptata spre 
programe de Joc, a devenit o stare de spirit. Calcu- 
latorul nu mai era un obisct care trebuia sa lucreze intr- 
un anumit fel, asa cum | se dicta. Nu mal era un 
Instrument. El devenise un partener. Fusese insufletit. 
Se dialoga cu el. Si asta inseamna nu o rece satisfac- 
tie, d surpriza, Imprevizibilitate, ambiguitate, poezie. Si 
cercul s-a transformat, prin corespondenta, Intr-o intin- 
sa retea, pe cuprinsul intregii tari. Dincolo de 
preocuparile specifice acestul "Club Roman de Cal- 
culatoare", cum s-a numit apoi, si cum si astazi se 
numeste, simteam, Insa, vibratia spirituala a tinerei 
generatii, vedeam o atitudine intelectuala, o optiune s- 
xistentiala a tinerilor. Si toate acestea inseamna vointa, 
forta, Inspiratie, vointa de afirmare, scop. 

Am spus programe de joc lar nu programe pentru in- 
vatamint, pentru o anumita institutie, cu toate ca si 
acestea si-au propus. Dar este jocul o preocupare 
minora? O forma derizorie, superticiala, trivola, de 
manifestaare a spiritului? Nicidecum. Dimpotriva, jocul 
este cea mal grava, cea mal umana preocupare a 
omului. De cind se naste, ba chiar dinainte. Jocul, in- 
teles ca o stare de firesc, de bucurie, de Intelegere, de 
libertate, de eliberare, de purificare, de creatie. Adica, 


Jocul, acea stare fundamentala ce are adinci sensuri 
morale si filosofice. 

Jocul presupune nu numai o ascutita inteligenta, un 
sutiet nobil si gerieros, ci si un simt al umorului, sub- 
tilitate si disoretie. 

Dar lronie? 

Dar autoironie? 

Sunt ele numai atribute ale inteligentei? Bineinteles. 

Pentru ca ironia presupune putere de detasare, de 
>biectivare, dar si implica participarea, de analiza 
lucida, consecinta logica, de valorizare. Numai in- 
teligenta poate Infaptul acel necesar drum, continuu si 
constant, dar cu tensiuni variabile, intre particular. si 
general, intre local si universal, intre analiza si sinteza. 

inteligenta inseamna perspectiva. inteligenta poate 
propune o noua ordine. Gestul ei se transforma in act 
demiurgic. inteligenta are, deci, si ea adinci |ustificari 
si adind sensuri morale si filosotioe. 

Poate deveni inteligenta un instrument de manipulare, 
In sens malefic? Bineinteles. Dar, atunci, inteligenta se 
rateaza, devenind negativul ei care, uneori, intr- 
adevar, poate îi stimulativ. 

Dumnezeu, creind lumea, universurile, a dat dovada 
nu nama! de Inspiratie, de fantezie, de imaginatie, de 
maxima inteligenta, de geniu, dar si de un fascinant 
simt al umorului, ei insusi un act creator, de o 
binevoitoare si constructiva ironie. Alttel, am avea prea 
multe sa-l S 

Autolronia as definl-o ca acea rara insusire a spl- 
ritului, a spiritelor alese, de a se autoanaliza cu se- 
veritate, de a se autoregia din mers, de a deveni 
constiente de propria lor valoarea si de a o fructitica 
spre bineielor si al tuturor. 

inca ceva. inteligenta si insusirile ei, inevitabil, trebule 
sa transceada utilitarului, contingentul, profanul, sa se 
inalte la meditatia morala, la meditatia filosofica, la 
sacru, la divin. Si de acolo iarasi spre contingent, spre 
Istorie, pentru a se |ustifica si pentru a face posibila o 
noua inaltare. Asttei, permanent vom simti si vom tral 
Intr-o dinamica a facerii, astfel ne putem auto- 
cunoaste, asttel putem cunoaste, asttel putem avea in 
noi acele coloane definitorii ale naturii si existentei 
noastre, sentimentul infinitului, sentimentul vesniciel. 

Acum, cind revista 'hobBIT”, un atit de inspirat si util 
instrument de lucru al 'Clubulul Roman de Calcu- 
latoare', ea insasi o stare de spirit, implineste un an de 
la aparitie, urez tuturor, redactiei, societatii care o 
sprijina, colaboratorilor, cititorilor si celor care vor veni, 
neliniste creatoare, generozitate, mereu disponibilitate 
pentru lubire, fara de care nimic nu se poate tace, 
VICTORIE! 


Mircea Dumitrescu 
Casa de Cultura a Studentilor 
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Liceul de informatica 


O oaza in desertul 
informaticii 





Interviu cu Dl. Grigore Ilie 
Directorul liceului 


Intrebare: Cum priviti calculatorul si ce parere aveti de 
utilitatea lui? 

Raspuns: Privesc calculatorul ca pe o necesitate ab- 
soluta, este un lucru indispensabil oricarui sector 
economic, stiintific, tehnic si de invatamint. O mare 
parte din personalul activ priveste calculatorul mai 
degraba cu teama decit cu neincredere, acest fapt 
datorindu-se  conservatotismului lor, dificulatatilor de 
perfectionare si adaptare la lucru cu calculatorul. Aces- 
ta ( calculatorul ) se adapteaza bine tineretului care 
manifesta curaj din curiozitate si din dorinta de a-i 
cunoaste performantele. 

L.: Ce parere aveti despre hobBIT? 

"R.: Este necesara. Este decenta si instructiva. Este 
foarte ordonata si cu o grafica ingrijita ceea ce arata 
pasiunea cu care este facuta acesta revista. Se vede ca 
mu este facuta pentru bani ci ca un cistig moral. Este 
foarte important sa existe astfel de reviste care sa 
preocupe nu numai tineretul cit si adultii, ceea ce in- 
seamna mai putina politica si mai multa preocupare 
profesionala. 

I.: Ce parere aveti despre C.R.C.? 

R.: Este extraordinar ca a aparut ecst Club in care 
oamenii nu tin cont de virsta, politica si pregatire 
profesionala, fiind vorba de un cistig in factura lor 
morala si intelectuala. Autoritatile locale ar trebui sa 
sprijine cluburi de acest fel, material si chiar si cu spatiu 
de desfasurare a activitatii. 

L: Care este relatia dintre Club si Liceul de Infor- 
matica? 

R.: Relatia trebuie sa se bazeze .pe respect reciproc, 
intr-uncit la conventia facuta la acceptarea in liceu nu 
au fost discutate participari materiale de o parte si de 
alta; comportarea in liceu doresc sa fie ca intr-o familie, 
fiecare avind grija sa se simta cit mai bine; pe timpul 
desfasurarii actiunilor sa fie ordine, disciplina si 
curatenie. 

L: Cum vedeti viitorul colaborarii club-liceu? 

R.: Liceul prevede o conlucrare pe termen lung cu 
clubul atit timp cit acesta se incadreaza in normele 
stabilite impreuna, si doresc ca mai multi elevi din liceu 
sa devina membrii activi in CRC si de ce mu, chiar in 
redatia hobBIT 


Va multumim inca o data pentru cuvintele frumoase. 
a consemnat Radu Davidescu 


UN 
AN 


Acest numar al revistei hobBIT incheie o 
perioada de un an de aparitie a sa. 
Conceputa ca o revista lunara, apare la 
interval de doua luni. Este in intregime 
dedicat posesorilor de calculatoare per- 
sonale de tip Spectrum, Commodore si IBM- 
PC. 





Fiind vorba de o aniversare, redactia 
tine sa multumesca tuturor celor care au 
contribuit, moral si material, la redactarea 
acestei reviste: 

Dna. Mihaela Gorodcov - revista 'Stiinta si 
Tehnica' 
DI. Mircea Dumitrescu - Casa de cultura a 
studentilor 
Di. Mihai Macavescu - emisiunea 'Prietenul 
meu calculatorul” 
tuturor prietenilor care ne-au scris, in- 
curajindu-ne. 











NUMAI pentru 
abonatii din 
Bucuresti. 
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ABONAMENTELE 
din Bucuresti 
se suspenda. 


Ne cerem scuze pent 
aceasta masura, dar avind i 
vedere ca o trimitere prin 

posta costa 50 lei/revista, si faptul ca la 
numarul anterior la redactie au sosit multe 
reviste retur deoarece abonatii au cumparat 
din oras hobBIiT-ul, ne vedem nevoiti sa 
renuntam la trimiterile din Bucuresti. 

Abonatii din tara vor primi in continuare revis- 





Bubble Bobble 
Spike in 
Transylvania 
American 3D Pool 
Dragon Ninja 
Multimixx 1 Golf 
Double Dragon 
Quatro Canton 
Professional 





CJ's Elephant Antics 

Dizzy Collection 

Quattro Coin-up 
Out Run 
Renegade 3 
Scooby Doo & Scrappy Doo 

Creature 

Red Heat 
Forgotten Worlds 


APRLE 1992 
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Ce mai cautam pentru PC? 
CIVILISATION 

AIRBUS 320 

THE GATE TO SAVAGE 

OH, NO! MORE LEMMINGS 
ECO QUEST 

COLONEL QUEST 

MAD ON TV 


NEW MAN 





Pentru corespondenta: 


Antigrav Toolkit 
P.O.Box 1074 
Cambridge, MA 02142 
USA 

Commodore 128. 


Indy Software 

9725 Alexander Lane, 

Fishers, IN 46038 

USA 

Produce programe pentru C64/128 


Glenn Chigges 

24 Cawdor Lane 

New Castle, DE 19720 

USA 

Pentru schimb programe: TI99/4A, IBM si 
toate tipurile de calculatoare personale. 


Ed Jones 

2810 Nela Ave. 

Orlando, FL 32809 

USA 

Un club pentru posesorii de Apple II. 


Lincoln Area Commodore Users Group 
P.O.Box 131 

Lincoln, IL 62656 

USA 

Pentru Amiga si Commodore 
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1. INTRODUCERE 


ZEU S este un asamblor de mare 
viteza, cu asamblare in doua treceri, 
care permite programarea in 
mnemonice Z80 si are un sistem de 
operare foarte bine pus la punct. 


2. DEFINITII 


- SOURCE FILE (fisier sursa) = textul incluzind 
toate mnemonicele limbajului de asamblare, label- 
urile si comentariile. 

- OBJECT CODE (cod obiect) = codul masina produs 
de ZEUS in urma asamblarii fisierului sursa. 

- SYMBOL (simbol) = un sir de caractere al- 
fanumezice folosite pentru a reprezenta o valoare 
mumerica (o data sau o adresa). 

- LABEL (eticheta) = un simbol de tip special a carui 
valoare corespunde adresei instructiunii care il ur- 
meaza imediat. 

- DIRECTIVE (directiva) = nu este o instructiune 
Z80 propriu-zisa ci reprezinta o comanda data de 
programator  asamblorului. 


3. INCARCAREA 


Se face in mod normal, cu instructiunea LOAD”. 


4. SCRIEREA PROGRAMELOR CU 
ASAMBLORULZEUS 


Acest capitol este o descriere a procesului de intro- 
duceze a unei scurte subrutine in cod masina, special 
conceputa pentru a ilustra functionarea lui ZEUS. 
Programul incarca in fiecare locatie din memoria ecran 
un octet cu valoarea 255. 


In primul rind se sterge ecranul cu (CS+9). 





ZEUS 


CRYSTAL COMPUTING 


„ntroducerea liniilor este similara cu cea a umii pro- 
gram in BASIC. Hecare linie trebuie sa fie precedata 
de un mmar intre 0 - 65534 inclusiv. O linie introdusa 
cu ENTER sterge linia precedenta cu acelasi mumar. 
Numezotarea automata se face cu (| x y) unde x este 
numarul liniei de start si y este cantitatea cu care se in- 
crementeaza linia precedenta. 


Pentru a iesi din modul de numerotare automata se 
apasa (CS+1) = CLEARLINE. 

Un caracter gresit se sterge cu (CS+0) = ERASE si se 
reintroduce. 

Pentru a obtine un listing al fisierului sursa se intro- 
duce (L x y z) unde x este mimarul liniei de la care se 
listeaza, y este mumarul liniei pina la care se listeaza iar 
z este mimarul de linii pina la pauza. 

Pentru a modifica un anumit caracter in text, se 
utilizeaza tastele de control ale cursorului 
(CS+5,6,7,8). Linia modificata va fi inserata in text 
apasind tasta ENTER cind cursorul se afla pe acea 
linie. 

In scopul maririi vitezei de introducere a textului, 
ZEUS este prevazut cu un tabulator ce se poate defini 
de utilizator in felul urmator: 

- se apasa M si ENTER avind ca rezultat aparitia pe 
ecran a cuvintului MONITOR ce indica modul respec- 
tiv de lucru; 

- se apasa S si se nmuta cursorul pina se aliniaza cu 
coloana L- urilor din listing in virful ecranului. Se tas- 
teaza un caracter diferit de spatiu (de ex. 1) urmat de $ 
spatii (de ex.) apoi iar | si ENTER; 

- din acest moment (CS+2) va muta cursorul din TAB 
in TAB. 

Reintoarcerea la ZEU S se face cu comanda Z. 

In continuare se tasteaza 160, se scrie “loop” (se 
poate si cu majuscule) iar cu (CS+2) se pozitioneaza 
cursorul la urmatorul TAB. 

Cu T se obtine inceputul si lungimea fisierului sursa 
iar cu Q se poate reveni in BASIC. De aici se poate da 
comanda SAVE “source 1” CODE 32768,144. Rein- 
toarcerea la ZEUS se face cu 

PRINT USR 57344 
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Inainte de relistarea fisierului sursa trebuie introdusa 
comanda O pentru a specifica ca e vorba de vechiul 
fisier sursa. 

Comanda N specifica pnn parametrul sau adresa 
unde se va depune fisierul sursa. 

In cazul in care se doreste iesirea la imprimanta, aceas- 
ta se poate face cu comanda P!1 si se poate opri cu PO. 
Listarea se poate intrerupe si cu BREAK 


$. INTRODUCEREA SI EDITAREA TEXTULUI 
5.1. Formatul general 


ZEUS utilizeaza setul de caractere ASCII. Pentru a 
introduce instructiuni in limbaj de asamblare trebuie 
tastat mai intii un numar de linie, urmat apoi de textul 
propriu-zis. Numarul de linie trebuie sa fie in inter- 
valul (0...65534). 

Textul este alcatuit din una sau mai multe instructiuni 
separate de doua puncte (:). 

Fiecare linie trebuie sa contina: 

1. Un label (optional) 

2. O instructiune 

3. Un comentariu (optional) 


5.1.1. Label-ul optional 


Trebuiesc respectate urmatoarele reguli: 
- poate contine litere mari, mici si cifre; 
- trebuie sa inceapa cu o litera; 
- lungimea maxima de 14 caractere; 
- trebuie sa fie diferit de cuvintele rezervate (desi poate 
sa le contina); 
- trebuie sa fie separat de instructiunea care-l urmeaza 
prin cel putin un spatiu; 
- referirea la label trebuie sa fie identica, caracter cu 
caracter, cu acesta. 


5.1.2. Instructiuni 


O instructiune poate fi oricare din cele standard 
ZILOG Z80 sau poate fi o directiva data asamblorului. 

S-a prevazut si o facilitate, la referirea flag-ului de 
parity/overflow. Referirea se poate face in doua 
modun: 
JP PE,... sau JP V,... /JP PO,... sau JP NV,... 

Aceste doua versiuni sint complet interschimbabile 
dar folosirea lor adecvata ajuta la construirea unor 
programe mai clare. 


5.1.3. Comentariul optional 


Se poate adauga un comentariu la sfirsitul oricarei in- 
structiuni. El trebuie separat de instructiune prin 
punct si virgula (;). Sint permise si liniile ce contin 
doar un comentariu. 


5.2. Constante 

Constantele se pot exprima in forma zecimala sau 
hexazecimala dupa cum urmeaza: 
Zecimal : 1 99 234 4096 
Hexazecimal : FA FE 46843 45000 
Literele se exprima astfel: 
7 Var Azi Aa de exemplu: LD A,'C 

Retineti ca in conventia Z80 parantezele denota 
referirea la o adresa. Spre exemplu, LD A,(200) incar- 
ca acumulatorul cu continutul locatiei de memorie de 
la adresa 200. 
In fine, exista si o constanta de sistem "$” (dolar) care 
se pozitioneaza la sfirsitul unei instructiuni si specifica 
adresa curenta a asamblarii. Spre exemplu, DINZ $ 
este echivalent cu 
loop DINZ loop 


5.3. Operatori 


Pentru usurarea scrierii programelor simbolice, 
ZEUS permite folosirea urmatorilor operatori logici: 
"+" adunare / *-" scadere / "&" SI logic /"!" SAU logic 
Nu exista prioritati, expresiile se evalueaza strict de la 
stinga spre dreapta. 


5.4. Expresii 


Ori de cite ori o constanta este ceruta de o instruc- 
tiune, ea se poate inlocui cu o expresie. Expresiile se 
construiesc din label- uri si/sau constante separate de 
operatori, ca in exemplul de mai jos: 

LD A,(ADDRESS + offset) 
LD HL.START-3 
IN A,(PORT&4FF) 
LABEL!4FROO 

De retinut ca expresiile sint calculate de asamblor 
pentru a determina locatia de memorie propriu-zisa 
care va fi inserata in codul obiect. Deci expresiile se cal- 
culeaza la asamblare si nu la executia programului. 


5.5. Directivele asamblorului 


Urmatoarele pseudo instruciiuni furnizeaza 
parametrii de operare ai lui ZEUS sau determina 
asamblorul sa inmagazineze valori in simboluri sau 
direct in memorie. 


ORG nnnn - este prescurtarea de la ORIGIN. Aceasta 
directiva determina asamblarea blocului in cod masina 
(tradus din fisierul sursa dupa instructiunea ORG) de 
la adresa nnnn, presupunind ca valoarea curenta a lui 
DISP este 0 (vezi mai jos). 

Sint permise si ORG-uri multiple in acelasi fisier 
sursa. Fiecare ORG va redirectiona adresa de la care 
codul ulterior este asamblat. 
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DISP nnnn - este prescurtarea de la DISPLACE- 
MENIT. O instructiune DISP modifica locul de la care 
codul ulterior este generat, chiar daca codul astfel 
produs este asamblat pentru a rula la adresa specificata 
de parametrul curent al directivei ORG. 

De multe ori este convenabil sa poti genera codul la 
o locatie de memorie tiiferita de aceea de la care se in- 
tentioneaza rularea (de exemplu daca aceasta din urma 
este ocupata in prezent). Monitorul poate fi folosit 
pentru relocatarea codului la adresa ORG-ului. 

Spre exemplu, fiind date urmatoarele doua instruc- 
tiuni la inceputul fisierului sursa: 
ORG 30000 
DISP 40000 
acesta va fi asamblat la 40000 dar va rula normal doar 
la 30000. 


ENT - determina un punct de intrare. Comanda X ex- 
ecuta codul asamblat de la ultima directiva ENT in 
fisierul sursa. 


EQU - este de la EQUATE sau 
EQUALS. Un label poate avea o valoare assign-ata lui 
sub forma: 

label EQU valoare 


DEFB nn,nn,... - insereaza octetii nn la adresa curenta 
de asamblare. 


DEFW nnnn,nnnn,... - insereaza cuvintele (adresele) 
nnnn la adresa curenta de asamblare. 


DEFM./sir/ - textul dintre separatorii "/ va fi inserat la 
adresa curenta de asamblare. 


In mod analog cu toate instructiunile in limbaj de 
asamblare, directivele pot fi precedate de un label. 
Spre exemplu: 

DATA_1 DEFW 40000,3456,6789 
OFSETS DEFB 3,2,14,20,9,2 
USRADD ENT 


5.6. Editorul 


ZEUS are un editor pe intreg ecranul fapt care 
usureaza modificarea fisierului sursa. 
Intii se listeaza textul folosind comanda L. Cursorul 
poate fi (acum) mutat in orice punct al listingului 
folosind tastele de control al cursorului (CS+5,6,7,8). 

Pentru a inlocui caracterul de la pozitia curenta a cur- 
sorului, se introduce pur si simplu noul caracter. Cur- 
sorul se va muta la urmatoarea pozitie. 

Se pot insera spatii intr-o linie la pozitia curenta a 
cursorului utilizind tasta de "INV VIDEO” (CS+4). 
Caracterele din virful ecranului se pierd. 





Caracterul de la pozitia curenta a cursorului se poate 
sterge utilizind tasta "TRUE VIDEO” (CS+3). 

O linie, o data modificata, se insereaza in locul corect 
din text prin apasarea tastei ENTER. 
Alte comenzi: 


CLEARSCREEN - intreg ecranul este sters si cursorul 
este pozitionat in stinga sus. Se executa la apasarea tas- 
tei "GRAPHICS" (CS+9). 


CLEARLINE - linia curenta este stearsa si cursorul 
pozitionat la inceputul liniei. Se executa la apasarea 
tastei “EDIT” (CS+1). 


TAB - tasta "CAPS LOCK” (CS+2) muta cursorul la 
urmatoarea oprire TAB din linia curenta. Opririle 
TAB se pot defini din monitor. 


6. COMENZILE ASAM-BLORULUI ZEUS 


O comanda este constituita dintr-o litera de comanda 
urmata de orice numar de numere sau sir de 
parametrii. Parametrii numerici pot fi constante 
zecimale sau hexazecimale. Introducerea parametrilor 
numerici inlocuieste parametrii impliciti din acea com- 
anda. Daca este necesara modificarea unor parametrii 
impliciti fara insa a-i modifica pe toti, aceasta se poate 
face introducind cite o litera pentru fiecare parametru 
nemodificat. Spre exemplu: 

L listeaza textul de la inceput la sfirsit 
L 10,50 listeaza textul de la linia 10 la linia 50 
L ,50 listeaza textul de la inceput la linia 50 

Parametrii tip sir se reprezinta incadrind sirul cu 
separatori. Separatorii pot fi orice caracter, mai putin 
"* sau "4". Spre exemplu, F"LDIR” gaseste toate 
aparitiile sirului LDIR. 

Comenzi: 

- Ax - Asambleaza fisierul sursa si afiseaza mesajele de 
eroare. Dupa ce x erori au fost numarate si afisate, 
asamblarea se opreste. Pentru a continua asamblarea 
se apasa tasta ENTER. Valoarea implicita este x= 14. 
- Dxy - Sterge toate liniile intre x si y inclusiv. In absen- 
ta parametrilor nu se executa nimic. 

- F"sir"xyz- Aceasta comanda cauta in fisierul sursa 
toate aparitiile sirului dat. Toate liniile ce contin sirul 
dat sint afisate pina cind z linii au fost afisate. Valorile 
implicite sint x=cel mai mic nr. de linie, y=cel mai 
mare nr. de linie, z= 14, “sir'="”. 


VA URMA 
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hobBIT nr.2 - ADC, AND, ASL 

»obBIT nr.3 - BCC, BGC, BEQ, BMI, BNE, BPL, BRK, 
BVC, CLC,CLD,CLI,CLV 

»obBIT nr4 - CMP, CPX, DEX, DEY, EOR, INC, INX, 

| INY 

hobBIT nr.5 - IMP,IJSR, LDA, LDX, LDY, LSR, NOP, 
ORA 

hobBIT. nr.1(6) - PHA, PHP, PLA, PLP, ROL, ROR 

hobBIT nr.2(7) - RTI, RTS, SBC, SEC, SED, SEI, STA, 

STX 


STY 


Store Y in memory 
Functiune: 

M «— (%) 
Format: 


cosaia | 2085 


Introduce valoarea din registrul Y in memorie. 


ua) 


Flag: NO EFFECT 


hobBIT 





Codul comenzilor: 


Absolut 10001100 HEX = 8C 
bb=01 
10010100 


bb = 10 


Pagina Zero, Y HEX = 94 


TAX 
Transfer accumulator into X. 


Functiune: 
X——— (4) 
Format: 


10101010 


Copiaza valoarea din acumulator in registrul X. 
= 


HEX = AA ( numai implicit ) 





Flag: NV P- DI. EC 


[E PR E 50 ES i SE) 


TAY 


Transfera valoarea din acumulator in 
registrul Y. 


Functiune: 


10101000 


HEX = A8 ( numai implicit) 
Flag: N, Z 


Format: 





hobBIT 


i 





TSX 
Transfer S into X. 


Functiune: 


x —— (5) 


Format: 


sl | 
„IE SEE» 


HEX = BA (numai implicit ) 
Flag: 
2 IDEI, ARE RR 2 ADR 


TXA 
Transfer X into acumulator. 
Yunctiune: 

A— 3%) 
Format: 


10001010 


HEX =8A (numai implicit) 
Flag: N, Z 


TXS 
Transfer X into S$. 
Functiune: 

ȘI) 
Format: 


10011010 


HEX = 9A ( numai implicit ) 
Flag: NO EFFECT 


TYA 
Transfer Y into accumulator. 


Functiune: 


A «— (Y) 


10011000 


HEX = 98 (numai implicit) 
Flag: N, Z 


Format: 





Cu aceasta instructiune, prezentarea mnemonicelor 
procesorului 6502/6510 s-a incheiat. Nu avem pretentia 
ca a fost o prezentare completa. Mai mult sugestiva, prin 
desene ce au vrut sa sugereze functiunile respective. 

Vom incerca in continuare sa prezentam diferite sub- 
rutine, scrise in cod-masina, comentate. 


Converteste un byte in binar in doua caractere ASCII 
hexa. 
Conditii intrare Conditii iesire 


a 
tea cea mai semnificatica 


ASCII echivalem pentru par- 
tea cea mai putin sem- 
niticativa. 


Ex: Data: FB16 
Rezultat: 4616 (ASCII F) 
4216 (ASCII B) 






; Tidul  Binar in ASCII hex 

; Registrii Toti 

; Marimea 31 bytes 

BN2HEX: 

;Convert HIGH NIBBLE 

TAX ;save original value 
AND FOFOH  ;get high nibble 
LSR A 


LSR A 

LSR A 

LSR A ;„move to lower nibble 
JSR NASCII ;convertto ascii 
PHA ;save it on the stack 
;Convert LOW NIBBLE 

TXA 





;get low nibble 
;convert to ascii 
;low nibble to reg.Y 
;high nibble to reg.A 
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SAVER 


byDANNY KID 


Este stiut faptul ca la C-64 zonele de ROM pot fi transformate in RAM prin 
dezactivarea lor (schimbarea locatiei 1 de memorie). Problema se pune insa 
in felul urmator : cum salvam un program aflat in acea zona de memorie 


cind prin modificarea locatiei | in scopul respectiv, monitorul (SIMON, HEX- 


MON, etc.) se blocheaza? Daca m avem FINAL CARTRIDGE III (optiunea O 
07 din monitor)... 


Pa nt va problema, utilizarea sa fiind banala: 
828, ae. _fisler”, adresa start, adresa sfirsit 


Daca la adrese se foloseste intervalul $D000 - $FFFE, rezultatul este im- 
bucurator... in locul zonei de ROM apare pe disk sau caseta exact programul 
mascat sub acea zona. 

10 DATA 60,3,32;84,226,32,160,3,132,247,133,248,32,160,3,1 65,248 

20 DATA 197,21,144,9,165,247,197,20,144,3,76,72,178,169,8,170 

30 DATA 160,1,32,186,255,32,192,255,162,8,32,201,255,165,247,32 

40 DATA 168,255,165,248,32,168,255,120,169,52,133,1,160,0,177 

50 DATA 247,162,55,134,1,88,32,168,255,230,247,208,2,230,248,165 

60 DATA 247,197,20,208,227,165,248,197,2 1,208,22 1,32,204,255,169 

70 DATA 8,32,195,255,76,174,167,32,253,174,32,138,173,76,247,183 

80 PRINT ” PRESS 'D' POR DISK OR 'T FOR TAPE ” 

90 GET K$ : IFK$ = "" ORK$ 'D"ORK$ "T” THEN 90 

92 IF K$ = “"D” THEN X=8 

93 IFK$ = "T'THENX=| 

95 OPEN 1,X,1,"MEMSAVE 828" : POR A = 0 TO IIO:READB: 
PRINT+1,CHR$(B); : NEXT : CLOSE 1 


SURPRISE... 
IT'S ME ! (BATMAN) 


by 3 HARD & SOET 


10 FOR i = 0 TO 27 

20 LET addr = 5433+i:READc: LET cont=c 

30 POKE 50100,cont 

40 POKE 50101,addr-256*INT(addr/256) 

50 POKE 50102,INT(addr/256) 

60 RANDOMIZE USR 50000 

70 NEXT i 

80 DATA 32, 32, 32, 32, 66, 117, 110, 32, 118, 101, 110, 105, 
116, 32, 105, 110 

90 DATA 32, 108, 117, 109, 101, 97, 32, 109, 101, 97, 32, 
161 


Apoi... NEW sau RESET si 


surpriza va fi afisata... 








Urmatorul program creeaza un efect 
"flash' asupra textului ce apere pe monitor. 
Rutina de baza fiind scrisa in limbaj 
masina, culoarea textului este schimbata 
foarte repede, realizindu-se ceva foarte 
frumos. 

Programul este absolut transparent 
(foloseste zona buffer-ului de casetofon de 
la $033C si rutina KERNAL ROM de la 
$EA31 privind intreruperile de la $0314- 
$0315). Deci programul va continua sa 
functioneze atit timp cit mo intra in conflict 
cu un altul care foloseste aceeasi zona de 
alocare (de ex. TURBO 250+). In timpul in- 
carcarii de pe disk-drive viteza de lucru a 
programului scade considerabil dar revine 
la normal o data ce incarcarea s-a terminat. 

Inca ceva: se poate modifica secventa 


afisarii culorilor pentru a crea un efect 
"flash" diferit de cel original (liniile DATA 


6-7). 


1 DATA 173, 17,208, 9, 64, 141, 17, 208, 
169, 0, 133, 254, 133, 253, 120, 169 
2 DATA 87, 162, 3, 141, 20, 3, 142,21,3, 
88, 96, 165, 253, 201, 2, 208, 39, 164 
3 DATA 254, 185, 137, 3, 141,34, 208, 
185, 146, 3, 141,35, 208, 185, 155,3 
4 DATA 141, 36, 208, 230, 254, 165, 254, 
201, 9, 208, 4, 169, 0, 133, 254, 169 
5 DATA 0, 133, 253, 76, 49, 234, 230, 
253,76, 49, 234 
6 DATA 9,8, 7, 1,7,8,9,0,0,0,2,10,7, 
1,7, 10,2, 0, 0, 0,0, 11,12,15,1,15 
7 DATA 12, 11 
8 DATA 173, 17,208, 41, 191, 141,17, 
208, 120, 169, 234, 162,49, 141,21,3 
9 DATA 142,20, 3, 88, 96 
10 FOR 1 = 828 TO 952: READA : 
POKE 1,A: NEXT 
15 POKE 53280,0 : POKE 532810: 


DANNYKID (C) 1992” 
21 PRINT ” SYS 828 - ON” 
22 PRINT ” SYS 932 - OFF” 
25 POKE 19: WAIT 198,1 
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Desi nc aflam in plin proces de raspindire a 
limbajelor de programare orientate pe obiecte 
(OOP), exista inca aplicatii in care vom recurge 
la asamblare pentu a obtine performante 
sporite (din punct de vedere al vitezei de ex- 
ecutie sau a dimensiunii programelor). 

Inainte de orice recomandari, iata o com- 
paratie intre programarea in limbaje de nivel 
inalt si in asamblare. In primul caz este ca si 
cum am construi o casa din module prefabricate: 
urmare a tipizarii modulelor viteza de constructie este 
mare, dar variatiunile intre formele camerelor sint mini- 
me. În al doilea caz, este ca si cum s-ar utiliza caramizi: 


METODE DE 
OPTIMIZARE A 
PROGRAMELOR 


1 1-stocheaza informatia memorata intr-un fisier 


In asamblare, programul ar putea arata cam asa: 


flecare dintre acestea trebuind fixata separat, viteza de LD HLADRSTART 
constructie este in consecinta mai mica; pe de alta parte PAS2: LD B,08h 
insa, se pot construi toate modelele de firide pe care le PAS3: IN A,(OFEh) 
dicteaza imaginatia. Un dezavantaj suplimentar in acest AND 08H 
caz este necesitatea unei bune RRA 
cunocasteri a “plamrilor de con- RRA 
structie“. RRA 
Care ar fi deci utilitatea Motto : RRC 
programarii in limba de A a . DINZ PAS3 
asamblare si care metoda Aa "Cind pui ceva m LD (HL),C 
de programare ? Raspunsul este Ă INCAL 
destul de intuitiv: se var utiliza memoria calculatorului, LD A,H 
secvente de instructiuni scrise ORL 
direct in limbaj de asamblare: tine minte ce si unde ai JR NZ,PAS2 
a) in acele zone ale programelor i CALL STOCARE 
care trebuie sa file cit se poate de pus 
scurte si / sau de rapide (com- Se observa ca am presupus 
pilatoarele utilizind metode umplerea memoriei prin 
generale mu pot face toate optimizarile gasite de un bun atingerea valorii OFFFFh de catre registrul HL 


programator); 
b) pentru secvente foarte scurte, in care complexitatea 
redusa nici m justifica folosirea umi limbaj de nivel 
inalt. Un astfel: de exemplu il constituie programul dat 
mai jos, utilizabil pe calculatoare compatibile Spectrum 
pentru digitizarea sunetelor preluate prin mufa de 
casetofon; 
c) pentru aplicatii pentru care limbajele de nivel inalt m 
ofera suportul necesar, acelasi exemplu de mai jos fiind 
edificator: 

Un astfel de program va avea urmatoarea structura: 
1  Anitializare adresa start memorare informatie 
digitizata 
2 -initializare nr. repetari la o trecere 
3-citeste de la portul de casetofon un octet 
cheaza bitul corespunzator casetofonului 
S-pentru compactarea informatiei  memoreaza bitul 
intr-un registru 
6-bucleaza pentru 8 biti de la pasul 3 
T-transfera in memorie octetul impachetat 
8-incrementeaza pointerul la memorie 
O-verifica daca mai exista spatiu 
10 repeta in caz afirmativ de la pasul 2 


4-mas- 


si ca mu am mai descris aici apelul rutinei din PROM 
pentru salvarea unci zone de memorie (echivalentul in- 
structiunii SAVE “mme” CODER ADRSTART,65535- 
ADRSTART). 

Atentie : daca veti incerca programul exact in aceasta 
forma, veti avea niste surprize (neplacute) ! Este mumai 
un model (APROAPE functional) ! 

Revenind la obiectivul nostru, vom deserie in con- 
tinuare in prima parte a articolului citeva metode 
generale de optimizare a programelor, urmind ca partea 
a doua sa se refere la unele specifice pentru Z80 si 
pentru  microprocescarele din familia INTEL 80x86. 
Pentru prima parte exemplele vor fi date in asamblare 
Z80, pentru ca majoriatea celor ce lucreaza pe cal- 
culatoare compatibile PC au trecut si prin epoca 
SPECTRUM, reciproca nefiind insa valabila. 


A. Recomandari generale de optimizare 
Evitau apelurile recursive de subrutine, inlocuindu- 


le, acolo unde se poate cu iterații. In mod normal, oric 
apel recursiv inseamna cel putin o salvare in stiva a 
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adresei de intoarcere si probabil si a unor registrii de 
lucru. 

In acelasi spirit, pasul urmator il constituie inlocuirea 
auto-apelurilor recursive din finalul subrutinelor, dupa 
modelul de mai jos: 

PROC... 


CMP valoare 

JE GATA 

CALL PROCI1 
GATA: RET 
care se poate inlocui cu : 
PROCI:... 


CMP value 
JNE PROC1 
RET 


Micsorati numarul de subrutine prin eliminarea sec- 
ventelor CALL / RET dintre doua subrutine si con- 
catenare intr-o singura subrutina: 

SUBR.:.... 


CALL SUBR2 
RET 
SUBR2:.... 


RET 
care se poate rescrie" 


Pasul imediat urmator il constituie gruparea seoven- 
telor comune mai multor subrutine in o unica aparitie in 
program. Fiecare subrutina va cuprinde o secventa de 
pregatire a datelor pentru prelucrare de catre partea 
comuna, careia in final ii va preda. controlul. Datele 
necesare acesteia pot fi transferate prin registri, prin 
stiva sau prin o zona specifica de memorie. De exemplu 
pentru a calcula sinusul sau cosinusul unui unghi, o 
metoda foarte eficienta este urmatoarea: 

a) se memoreaza intr-un tabel valorile corespunzatoare 
sinusului unghiurilor dintre 0 si 90 de grade, calculate 
anterior prin indiferent ce metoda, cu pasul necesar 
aplicatiei 

b) orice unghi alfa pentru care dorim sa aflam sinusul 
sau cosinusul se scaleaza la intervalul 0-90, memorind si 
cadranul 

c) pentru cosinus, se calculeaza alfa= (90-alfa) 

d) din tabel se determina sinus(alfa) 

e) se ajusteaza semnul conform cadranului unghiului ini- 
tial. 

Obs: pentru cei interesati, un exemplu insiructiv ii 
constituie fisierul "WIN.ASM” furnizat pentru lucrul cu 


ferestre de catre firma BORLAND in kit-ul Turbo Pas- 
cal . 

Inlocuiti atunci cind este posibil calculele cu citiri din 
tabele. Astfel pentru a determina numarul de "1! dintr- 
un octet se pot face deplasari prin bitul de transport si 
incrementarea unui contor cind CY=1; acelasi lucru se 
poate obtine insa mai rapid daca se creaza o tabela de 
forma: 

TABELA db 0 ; 00000000 ;0are Obiti "1" 
db 1 ; 00000001 ;1 are unbit"t" 
db 1 ; 00000010 ;2 are tot un bit "1" 
db 2 ; 00000011 ;3 are doi biti "1" 


Octetul primit ca argument este folosit ca index, 
numarul de biti egali cu '1" putind fi citit direct: 
NR_BITI 1:LDHL,TABELA  ;aduce adresa de baza 
ADD L,A ;aduna indexul primit ca argu- 
ment 
IRNCNR_B1  , adunareasefacepe 16biti 
INCH ; asa ca tinem cont de depasire 
NR_BI: LDA, (HL) ;citeste numarul de biti 
nenuli 
RET 
Scoateti in afara buclelor toate operatiile care nu sint 
dependente de variabila contor. De exemplu ciclul : 
for i=1 to n do 
a| ij=b*c+d[ i] 


se poate rescrie 
t=b*c 
for i=1 ton do 
a| i=t+d[ i] 


eliminind astfel n-l inmultiri. 

Cu exceptia cazului cind aveti la dispozitie un 
coprocesor matematic (apropo, cite calculatoare 
SPECTRUM cu coprocesor matematic ati vazut?) 
evitati inmultirile, inlocuindu-le cu rutine inteligente 
bazate pe deplasari si adunari repetate. Nu uitati ca in 
cel mai defavorabil caz, deplasarile se fac cu un bit in 
fiecare impuls de ceas (procesoarele mai inteligente fac 
intr-un singur tact deplasari cu orice numar de biti), in 
timp ce o operatie de inmultire (MUL) pe 8086 dureaza 
de la 80 la 140 de impulsuri de ceas, iar adunarea 
repetata a unui operand la celalalt este de asemenea o 
operatie costisitoare ca timp. lata exemplul inmultirii 
rapide cu 10 a numarului din registrul A: 

PUSH BC 
RLCA  ;*2 
LDBA ; MEMORARE TEMPORARA 


RLCA ;*4 
RLCA ;*8 
ADDB ;*10 
POP BC 


Metoda poate fi usor extinsa pentru numere pe 16 
biti. Atentie insa: daca aveti de efectuat numeroase in- 
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multiri generale, folositi cu incredere o singura rutina. E 
bine totusi sa incercati optimizari care initial sa aduca 
rezultatul temporar cit mai aproape de cel real prin 
deplasari, pentru a-l ajusta in final prin adunari. 

Nu va osteniti pentru a scrie rutine similare pentru 
impartire. In cele mai multe cazuri nu veti cistiga mai 
nimic, o rutina generala de impartire fiind poate cu 10% 
mai putin eficienta decit una "optimizata”. 

Inainte de a va apuca de imbunatatirea unor sub- 
rutine deja scrise, faceti o evaluare generala a duratelor 
de executie si apoi concentrati-va atentia asupra acelora 
in care programul "sta" cel mai mult. Daca 80 % din 
durata de executie a unui program o constituie 1-2 sub- 
rutine, lasati-le - cel putin la inceput - pe celelalte in 
pace si ocupati-va de acestea. 


B. Optimizari pentru Z80 


Un aspect important este sa nu uitati cite registre are 

procesorul: pe linga registrele primare A - L exista si 
setul alternat A” - L!, care poate fi folosit de exemplu 
pentru a evita salvarea continutului registrelor primare, 
si cei doi registri index IX si 1Y care faciliteaza accesele 
la memorie, in special la structuri de date. 
Atentie: la Sinclair Spectrum registrul IY are o utilizare 
speciala, iar din cauza unui "bug” al interpretorului, HL' 
NU ESTE SALVAT automat la apelurile cu PRINT 
USR/RANDOMIZE USR a rutinelor in cod masina ! 

Preferati incrementarea adunarii cu 1 : este nu numai 
mai rapida dar si mai scurta ( un octet fata de doi). 

Incrementarea unui operand de un octet din memorie 
se poate face cu secventa de 4 octeti care nu afecteaza 
acumulatorul: 

LDHL,V ;incarca adresa variabilei 

INC (HL) ; apoi incrementare in memorie 
sau cu cea de 7 octeti care nu afecteaza HL : 

LD A, (V); 

INC A 

LD (V)A 

Contorul unui ciclu poate fi pastrat in stiva, pentru a 
evita ocuparea a doua registre pe durata ciclului: 

LD BC.valoare 
REP: PUSH BC 

POP BC 

DEC BC 

LD A.B 

OR C 

JP NZ,REP 

Si desigur nu uitati ca 1) instructiunea DINZ face trei 
operatii (decrementare B, comparare cu zero si salt la 
inegalitate) in numai doi octeti, ceea .ce o face 
preferabila pentru cicluri cu contor de un octet si 2) 
pentru salturi de cel mult 128 octeti se pot foiosi sal- 
turile relative, care sint mai rapide si ocupa mai putina 
memorie in codul executabil. 


La prelucrarea in paralel a mai multor zone de date, 
salvarea / restaurarea repetata a perechii HL poate fi 
evitata folosind pentru adresare si registrele DE, BC dar 
mai ales IX si [Y. lata de exemplu extragerea unui subsir 
dintr-un sir, cu [X- adresa sirului initial, [Y-adresa des- 
tinatiei, B-numar de caractere de extras si DE-ofisetul 
subsirului in sirul initial: n 

ADD IX,DE ;calculeaza adresa de inceput a sub- 
sirului 
BUCLA: LDA,(1X+0) 
LD (Y+0),A 
INCIX 
INCIY 
DINZ BUCLA 
Transferul rapid al unui bloc de memorie (ex. o im- 
agine) se poate codifica folosind LDIR/LDDR: 
LD HLADR_SURSA 
LD DE,ADR_TINTA 
LD BCLUNGIME 
LDIR 

Cu mici prelucrari ale acestei secvente si utilizarea 
celorlalte instructiuni pentru siruri (LDILDD, 
CPI/CPD, CPIR/CPDR) se pot obtine efecte spec- 
taculoase (ferestre, deplasari de sprite-uri, cautari in 
memorie). 

Pentru aplicatii grafice - dar nu numai - sint utile in- 
structiunile care opereaza la nivel de bit (SET, RES. 
BIT) care "merg" avind ca operand un registru sau un 
octet din memorie. 

OBS: in acelasi program demonstrativ, se putea testa 
bitul corespunzator casetofonului cu BIT 3,A in loc de 
AND A,08, verificind apoi flagul Z si introducind in 
registrul C un "1” sau un "0 functie de rezultat, con- 


ducind la o secventa de genul: 
BIT 3,A 
SCF ;forteaza CARRY in 1 


JR NZETIC_N  ;daca bitul era 1, salt 
OCR ;forteaza CARRY in zero 
ETICN: RRC 
Se constata insa ca desi eleganta, secventa are 6 oc- 
teti, fata de numai 5 cit avea prima (fiecare octet liber in 
plus inseamna p. sivilitatea a 8 digitizari suplimentare). 
Un dialog rapid cu porturile se poate face folosind in- 
structiunile de I/E pe siruri INVINIR si OUTI/OTIR 
care pot prelucra cu o singura instructiune pina la 255 de 
operatii de intrare/iesire. 
OBS: Nu am folosit aceste instructiuni in programul 
demonstrativ de digitizare a sunetului deoarece am facut 
si o impachetare a informatiei. Acest gen de operatii se 
preteaza „insa foarte bine la programarea circuitelor 
auxiliare din familia Z80 (PIO,SIO, etc) , ca si la 
folosirea unor convertoare analog-digitale. 

Deplasarile aritmetice si instructiunile de 
adunare/scadere cu transport pe 16 biti se pot folosi in 
rutinele aritmetice pentru operatii pe 32 de biti sau cu 
numere reprezentate in binar virgula mobila (numere 
reale). Deplasarile direct in memorie reduc de asemenea 
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lungimea programelor. Tot pentru aritmetica in BCD 
(zecimal codat binar) sint utile RLD si RRD: o 


deplasare cu o pozitie inseamna o inmultire, respectiv * 


impartire cu 10. Mai departe in acest mod se pot scrie 
rutine eficiente de inmultire si impartire de numere 
BCD. 

Pentru apeluri rapide si scurte de subrutine, se pot 
folosi instructiunile RST (restart), care desi fac salturi la 
numai 8 adrese fixe (multiple de 8, incepind cu 0) ocupa 
un singur octet, fata de 3 cit are un CALL normal. Astfel 
se pot implementa foarte eficient tabele de subrutine, 
sub forma: 

0000: cod pregatitor subrutina 1 

JP SUBRUTINAI ...sau chiar JR SUBRUTINA1 
0008: cod pregatitor subrutina 2 
JP SUBRUTINA2 sau JR SUBRUTINA2 
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Metoda are avantajul ca se poate modifica adresa in 
memorie a subrutinelor, fara a afecta codul programelor 
existente; este suficient sa fie modificata adresa de salt 
din tabel. Limita de 128 octeti a salturilor relative (2 oc- 
teti) impune de obicei folosirea instructiunilor de salt 
absolut (3 octeti)), 

Si in final, o ultima constatare, rezultata din practica 
hobby-stilor: cu registrele IX si IY se pot face TOATE 
operatiile acceptate de catre H si L, prefixind codul 
operatiei cu DDh, respectiv cu FDh (desi nedocumen- 
tate, se pot efectua operatii cu numai un octet al 
registrelor index). 

Ca bibliografie recomandam "Programarea microcal- 
culatoarelor in sistemul de operare CP/M" (Moraru F.) 
si “Totul despre microprocesorul Z80" (Patrubany M.). 


Manuel Wolfshant 






0010; 

PAIN Toata va si dorim 
mutare la dreapta atunci 

by 3 HARD & SOFT caracterul urmator tiparit 


Urmatorul program 
(pentru ZX SPECTRUM 
+ compatibile) faciliteaza 
tiparirea pe ecran in sase 
in loc de opt coloane 
grafice si se prezinta ca o 
subrutina dintr-un pro- 
gram ce ar putea fi si un 
editor de texte. Programul 
prezinta avantajul ca pe o 
linie intra 42 de caractere 
fata de 32 in mod normal 
si se poate scrie pe orice 
linie intre 0 si 23. In acest 
mod pe ecran intra cu 240 
de caractere mai mult 
decit in modul impus de 
interpretorul BASIC. In 
plus, lungimea sirului de 
caractere ce poate fi 
tiparit in conditii normale 
este de 1008 (24 linii * 42 
caractere / linie). 

Programul e autoprotejat 
la iesirile din ecran adica 
in cazul in care se ajunge 
in linia 0 coloana 0 si se 


mator pe linia 0 coloana 
41 iar cind ne aflam in 


se va face pe linia 23, 
coloana 0. 

Se respecta conventia de 
la instructiunea PRINT 
referitoare la sfirsitul de 
sir si anume cind se intil- 
neste un caracter cu cod 
128, se stie ca acesta 
reprezinta sfirsitul sirului 
ce trebuie tiparit. 
Programul are  ur- 
matoarele caracteristici: 

- 400 octeti subprogramul 
in cod; 

- 50 octeti stiva proprie 
(55998-55960); 

- $ octeti de manevri 
(55950) ce pot fi asezati 
oriunde in RAM; 

- 23729 = coloana. curen- 
ta; 

- 23728 = linia curenta; 

- dupa tiparire se in- 
crementeaza doar 
numarul de coloanei; 

- HL = adresa din 
memoria video de unde in- 
cepe tiparirea; 

- IX = unde se afla in 
memorie caracterul ce ur- 
meaza a fi tiparit; 

- IY = adresa de unde in- 
cepe definirea caracterului 


ce urmeaza a fi tiparit |TIP6 JPTIPY 
(generatorul de caractere). | TIP? LD HL,23728 
DEC (HL) 
ORG 56000 INCHL 
LD (65530),SP LD (HL),41 
LD SP,55998 LD A,(HL) 
PUSH AF JP TIP6 
PUSH HL TIP8  LDHL,23728 
PUSH BC INC (HL) 
PUSH DE INCHL 
PUSH IX. LD A,0 
PUSH IY LD (HL)A 
LD 1X,30000 TIP9 SLAA 
TIP1  LDIY,15616 LD CA 
LD A,(1X) SLA A 
CP 128 ADD A,C 
JP M,TIP2 LD B3 
SUB 128 TIP10 SRLA 
TIP2 CP32 RR C 
JP M,TIP3 DECB 
CP 128 JP NZ,TIP10 
JP M,TIP4 LD LA 
TIP3 LD A,32 LD H,0 
TIP4  SUB32 LD B 5 
LD B3 TIPI1 SRLC 
LD D,0 DECB 
TIPS SLAA JP NZ,TIP11 
RLD LD A,7 
DECE SUB C 
JP NZTIPS LD BA 
LD BA LD A,(23728) 
ADD IY,DE CP O 
LD A,(23729) JP M,TIP12 
CP O CP 23 
JP M,TIP7 JP P,TIP13 
CP 42 JP TIP14 
JP P,TIP8 TIP12 LDA,0 
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LD (23728), A SBC HL,DE LD SP,(65530) 3DC8 0E 11 110F 01 
JP TIP14 DEC C RET 01 0E 00 9 
TIP13 LDA,23 JP NZ,TIP22 3DDO0 00000400 00 04 
LD (23728),A JP 'T1P29 Generatorul de caractere 0000 : 
TIP14 SUBS8 TIP23 LDD,8 (incepe la 3D00 = 15616)  3DD8  000004000004 
CP 0 NEG 04 08 ; 
JP P,TIP15 TIP24 LDBA 3D00  000000000000 3DEO  000204080402 
LD DE,16384 LD C(Y) 00 00 blank 00 00 
ADD A,8 LD ((X),C 3D08  000404040400 3DE8 00 00 1F 00 1F 
JP TIP17 TIP25 SRL (LX) 0400 ! 00 00 00 = 
TIP15 SUB8 DEC B 3D10  000A0A0000 3DFO  000804020408 
CP 0 JP NZ,TIP25 00 00 00 ” 00 00 
JP P,TIP16 PUSH AF 3D18  000A1FOA1F 3DF8 000E 11020400 
LD DE, 18432 LD A,(HL) OA 00 00 4 04 00 ? 
ADD A,16 ADD A,(1X) 3D20 04 0E 14 1F 05  3E00  000E 13121610 
JP TIP17 LD (HL)A VE 04 00 $ OF 0% e 
TIP16 LD DE,20480 LD BC,256 3D28 19 1A 02 04 08  3E08 O40A1luuurll 
ADD A,16 ADD HL,BC OB 13 00 % 1100 A 
TIP17 LDCS INCIY 3D30  000814081512  3E10 1C12121B1111 
TIP18 SLAA POP AF 1D 00 & 1E 00 B 
DEC C DEC D 3D38  020400000000  3E18  0E 1110101011 
JP NZ,TIP18 JP NZ,TIP24 0000 * 0E 00 C 
ADD HL,DE NEG 3D40  000204040404  3E20  1C1211111111 
LD D,9 ADD A,8 02 00 ( 1E 00 D 
LD EA LD C,8 3D48  000804040404  3E28  1F1010101C10 
ADD HL,DE LD DE,256 08 00 1F 00 E 
LD A,(23729) TIP26  DECIY 3D50 00 00 0A 04 1F  3E30 1F1010101c1v 
INC A SCF 04 04A 00 * 10.00 F 
LD (23729),A CCF 3D58  0004041F 0404 3E38  0E 1110101711 
PUSH IX SBCHL,DE 0000 + 0E 00 G 
LD 1X,55950 DEC C 3D60  000000000004  3E40 111111111F11 
LD A,B JP NZ,TIP26 0408 , 1100 H 
SUB 6 INC HL 3D68  0000001F 0000  3EA48 04000404 0404 
JP M,TIP23 JP TIP19 00 00 - 04 00 1 
JP Z,TIP27 TIP27 LDC8 3D70  00000000000C  3E50 0101010104111 
TIP19 LDD,8 TIP28 LDB,(1Y) 0C 00 . 0E 00 J 
TIP20 LDB,A LD (IX),B 3D78 0010202040808  3E58  111214181412 
LD C(Y) LD A,(HL) 1000 / 1100 K 
LD (X),C ADD A,(1X) 3D80  0E 1113151911  3E60 1010100101010 
TIP21  SLA (1X) LD (HL)A 0E 00 0 1F 00 L 
DEC B LD DE,256 3D88  04040C040404 3E68  11111B151111 
JP NZ,TIP21 ADD HL,DE 0E 00 1 1100 M 
PUSH AF INCIY 3D90  0E 1101020408 3E70  111119151311 
LD A,(HL) DEC C 1F 00 2 1100 N 
ADD A,(1X) JP NZ,TIP28 3D98  0E 1101060111 3E78 OE1111111111 
LD (HL)„A TIP29  POPIX 0E 00 3 0E 00 O 
LD BC,256 LD A,(1X) 3DAO0  02060A121F 3880 1E1111111E810 
ADD HL,BC CP 128 02 02 00 4 1000 P 
INCIY JP P,TIP30 3DAB 1F101E 1101 3E88  0E 1111111513 
POP AF INC LX 110E 00 $ 0E 00 Q 
DECD JP TIP1 3DB0  0E10101E11 3E90 1E1111111E8 12 
JP NZ,TIP20 TIP30  POPIY 110E 00 6 1100 R 
LD B,A POP IX 3DB8  1F 0101020404  3E98 0E10100E 0101 
LD DE,256 POP DE 0400 7 0E 00 S 
LD C8 POP BC 3DC0  0E11110EB 11 3EA0  1F 0404040404 
TIP22  SCF POPHL 110E 00 8 04 00 T 
COCF POP AF 
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3EA8  L1iliititi 
11 0E 00 U 

3EBO  L111Il0A 
OA 0A 04 00 V 
3EB8 1111111115 
15 0A 00 W 

3ECO 1104040404 
OA 1100 X 

3EC8  L1Il0A0A 
04 04 049% Y 

3EDO 1010204 08 
10 1F 00 Z 

3ED8  000E 089508 
08 0E 00 [ 

3EEO 1008080402 
02 01 00 | 

3EE8  000E 02 02 02 
02 0E 00 ] 

3EFO 0004 040E 94 
04 04 00 * 


3EF8 0000000000 
00 00 LE _ 

3R00 000609 1C08 
08 08 IF lira" 

3RO08  00000E010F 
11 0F 00 a 

3R10  1010101E11 
11 1E 00 b 

3F18  00000F 1010 
10 0F 00 c 

3F20  O0101010F11 
11 0£ 00 d 

3528  00000E il 1E 
10 0E 00 e 

3F30  030404040E 
04 04 00 £ 

3F38  00000E 111 
OF 01 0E g 

3P490  101010IiE1)] 
111100 h 


3FR48 00040004 04 
04 04 00 i 
3R50 0002 00 02 02 
02 02 OC ; 
3FS8  101012141C 
12 11 00 k 
3F60 080808 08 08 
08 06 00 1 
3F68  00001A 1515 
15 1500 m 
3F70  00001EBILII 
11 1100 n 
3F78  00000E1i1l 
11 0E 00 o 
3R80  00001E 11): 
IE 10 10 p 
3F88  000OOFIIII! 
OF 01 61 q 
3F9) 0000170808 
08 08 00 r 


3R98  00000E 101R 
01 0E 00 s 
3PAO0 0404 0E 04 04 
04 03 00 t 
3RA8 0000111 
11 0E 00 u 
3FBO  000011110A 
OA 04 00 v 
3RB8 0000111115 
15 0A 00 w 
3RCO 0000 11 OA 04 
OA 1100 1 
3RC8 00001111! 
OF 01 0E y 
3RDO  00001P0204 
08 1F 00 z 





| 40 CLEAR 29999 
20 RANDOMIZE USR 50000 
30 FORI =8 TO 16383 
i+30000) THEN OUT 


40 IFPEEKI ara 
228,251 :POKE i, PEEK(i+30000) : OUT 


50 NEXTI 

60 OUT 228,251 
70 POKE 0,243 
80 POKE 1,1 

90 POKE 2,0 
100 POKE 3,64 
110 POKE 4,105 
120 POKE 5,195 
130 OUT 228,249 
140 CLEAR 65535 
150 NEW 


<> 


D) 
ş : . “. 
. 

Lu LA LUI ULUI LUV ULUI LLULULLTU 


by 3 HARD & SOFT 


Cu ajutorul acestui program, amatorii de 
efecte pot realiza inscrierea in RAM-ul 
TIM S-ului a interpretorului BASIC al cal- 
culatorului CIP. 

Atentie ! Dupa ce ati realizat acest lucru si 
aveti in primii 16K RAM ai TIM S-ului inter- 
pretorul BASIC de pe CIP, sa nu faceti 
RESET deoarece astfel se incarca din EPROM 
interpretorul TIM S-ului. Vor fi 17 octeti de la 
adresa 51000 (antetul) iar in 16384 octeti de la 
adresa 3000 varianta de BASIC de pe CIP 
(sau PN BASIC) incarcata in memoria TIM S- 
ului. 


LD DE,17 
CALL 1366 
SC 
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CASTLEMASTER 


solutia completa 


Emil Matara 


A 


sp 





Hi, you cool dudes ! Here 1 go 
again... 

De aceasta data va ofer solutia 
completa la un excelent game: 
Castle Master. Acest joc face parte 
dintr-o celebra serie de patru 
jocuri: DRILLER, TOTAL 
ECLIPSE, CASTLE MASTER si 
THE CRYPT. 

Celebritatea acestor jocuri nu se 
datoreaza cum s-ar crede unor idei 
neinaipomenite ci în primul rind 
graficii. Firma L ICENTIVE 
SOFIWARE a lansat prin aceste 
jocurii un non concept de grafica 
3D numit "FREESCAPE" care 
intr-adevar da o senzatie de spatiu 
si perspectiva uluitoare. Nu stiu 
cum arain pe COMMODORE 64 
acest joc (f DANNY KID puis 
this on line) dar pe SPECTRUM 
arata excelent. Dar vorba multa... 

Sa incepem deci... Ochii in 
monitor si degetele pe taste... 

La inceput exista doua optiuni 
deoarece poti juca rolul printului 
sau al printesei. 

Du-te la intrarea castelului, trage 
in lespedea mai deschisa la culoare 
de pe zid si cade podul. Intra in 
castel, du-te la fintina si e- 
xamineaz-o, luind cheia de pe fun- 
dul fintinii. lesi afara din castel si 
du-te in spatele lui, deschide cu 
cheia usa  cabanei, intra, e€- 
xamineaza  covorasul, intoarce-te 


180 grade, stai pe masa, ia cheia 
care se afla pe scaun. Du-te din 
nou in fata castelului (la grajduri), 
deschide usa cu ultima cheie luata, 
intra, du-te la cal,  tiraste-te 
dedesubt, ia cheia, du-te la mar- 
ginea grajdului, priveste sus, im- 
pusca steagul, impusca fantoma, 
du-te in spatele grajdurilor. Intra 
apoi la fierarie, ia briaza de pe 
masa si aurul de dedesubt, iesi din 
fierarie. Intra in castel apoi pria 
vestibul (tumul in linie cu ziduii, 
impusca fantoma, ia cheia, des- 
chide usa incuiata, iesi din tun. 

Intra apoi in celalait turn, impus- 
ca fantoma din apa, mergi pina pe 
partea cealalta, scurge bazinul si 
iesi pe usa din spatele tau. Acum 
te afli in holul principal, irapusca 
fantoma, ia brinza de la capatul 
mesei, iesi pe usa cealalta. Acum te 
afli in bucatarie, impusca flacara 
de pe podea, ia mincarea de pe 
masa (cam fomist printul asta, nu-i 
asa ?), iesi pe usa cealalta, in ves- 
tibul intra pe usa din stinga si te 
afli linga casa scarilor, cobori 
scarile in catacombe, mergi spre 
usa din stinga. Intra, intoarce-te 
spre dreapta, mergi in: jos pe 
coridor, intra pe usa din stinga, 
tiraste-te sub blocul de piatra, ia-o 
pe coridorul din dreapta, intra pe 
usa din fata ta, impusca fantoma, 
acum intra in camera cu o gaura in 
peretele indepartat, du-te pina la 
intersectie, intoarce-te la stinga, 
draste-te sub blocul de piatra, 
intra pe usa, intoarce-te spre stin- 
ga, mergi in sus spre urmatoarea 
usa dar nu intra, intoarce-te spre 
stinga si acum intra pe usa din fata 
ta. 

Acum te afli in casa scarilor, iesi 
din casiel, fa un ocol spre coliba 


vrajitorului. Lasa-te sa cazi prin 
gaura din podea, tiraste-te, impus- 
ca fantoma, fa  stinga-imprejur, 
pune cursorul pe sticla si ia elixirul 
de revitalizare. Intoarce-te la stin- 
ga, mergi pe zidul intunecat pina 
unde intunericul intilneste lumina, 
ia cheia, iesi din incapere, mergi 
spre casa scarilor. 

Acum esti in spatele spitalului. 
Intoarce-te spre dreapta, impusca 
liliacul de pe acoperis, iesi, in- 
toarce-te in casa scarilor, tiraste-te 
sub a doua scara, ia tezaurul (caz 
penal, ce mai !), iesi din turn prin 
vestibul, mergi spre celalalt turn la 
baile de aburi, coboara treptele, 
traste-te prin gaura, impusca fan- 
toma, ia BRINZA (aici cam incepe 
sa exagereze), iesi din camera, 
mergi spre casa scarilor, iesi, lasa- 
te sa cazi in fintina, impusca fan- 
toma, examineaza  cufarul, ia 
patratul care este tezaurul, cauta 
din nou, ia cheia, iesi din 
catacombe, mergi la biserica si 
arunea o privire inauntru, impusca 
fantoma, examineaza gaura, iesi 
din catacombe. 

Acum esti in casa scarilor, urca 
scarile, intra pe prima usa din 
dreapta, mergi prin pasaj si te afli 
in biblioteca. Examineaza cartea 
de la mijlocul raftului - aceasta 
deschide un pasaj secret - iesi din 
camera, intoarce-te la casa scarilor, 
urmareste urmele rotunde, intra 
pe usa, impusca flacara de pe 
podea, stai pe scaun, ia mincarea 
de pe raitul de sus (cred ca e un 
caz patologic), iesi pe cealalta usa 
care da in magazii. Pe masa se afla 
un e€lixir intaritor (palinca de caise, 
I presume). 

Foloseste elixirui atunci cind 
levei-ul de energie atinge o cota 





critica. Tiraste-te sub masa, ia 
aurul, iesi pe cealalta usa, ur- 
mareste poteca spre sala de bal, 
impusca fantoma, mergi spre 
cealalta usa, deschide-o, intra, ia 
elixirul (pentu impuscaturi mai 
rapide), intoarce-te in magazie, 
refa-ti energia (sase inr!: de 
fiecare parte), intoarce-te la casa 
scarilor, iesi din castel, mergi spre 
blocul de piatra, impinge-l, da-ti 
drumul sa cazi in put, impusca fan- 
toma, mergi spre  cufar, e- 
xamineaza-l, iesi din catacombe, 
mergi sus spre scari, -intra pe usa 
din dreapta si te afli din nou in 
biblioteca. Intra pe usa cea ingusta, 
du-te la  cufar, deschide-, ia 
tezaurul, intoarce-te in fata cas- 
telului, stai pe marginea podului, 
trage in blocul mai deschis la 
culoare (care cade si te catapul- 
teaza in virful turlei bisericii), 
mergi sus spre clopotnita, in- 
toarce-te cu 180 grade, ia cheia, 
iesi afara din biserica, intra in turn, 
mergi spre casa scarilor, urca pe 


ele, mergi in camera cu o secure pe 
perete, iesi, intoarce-te spre dreap- 
ta, urca scarile, intoarce-te si intra 
pe usa din dreapta, intra in baraca, 
impusca fantoma de pe tavan, iesi 
din camera prin usa deschisa vis-a- 
vis de cea prin care ai intrat. Mergi 
pe poteca, ia brinza de pe carare 
(sic !), mergi in contimuare pe 
carare, intra pe usa care apare, 
deschide prima usa de pe coridor, 
intra in serele regale, impusca 
flacara de pe podea, iesi, deschide 
usa din stinga, impusca fantoma, 
stai pe scaun, ia tezaurul de pe raf- 
tul de sus, mergi prin spatele 
gramezii de vechituri din colt, intra 
in camera urmatoare, impusca fan- 
toma din dreapta, iesi, intoarce-te 
la baraca, deschide usa din stinga, 
coboara la baile de aburi, lasa-te sa 
cazi prin gaura, mergi pe scari dar 
mu iesi, mergi cit de departe poti, 
priveste sus apoi, ia firul de 
deasupra ta, iesi, mergi la camera 
garzilor prin: timplarie, magazii, 
pasaj, holul principal, sala de bal si 


TOP SPECTRUM - aprilie 


Bubble Bobble 


ProtesionalFootballer 


Magic Land Dizzy 
Dizzy Panic 
Dragon Ninja 
Quattro Cartoon 
Hero Quest 


Spike in Transylvania 


ultimixx 1 Golf 
Ghostbusters 2 
The Match 
Kwik Snax 


Treasure Island Dizzy 


Continental Circus 
Cavemania 
Operation Wolf 
Euro Boss 

Double Dragon 
Viz 
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pasaj. Deschide usa, intra, impusca 
fantoma si liliacul, priveste jos la 
dreapta, sufla in foc, priveste sus, 
ia brinza de pe raft, intoarce-te la 
scarilor, urca, traverseaza podetul, 
deschide usa, intra, impusca con- 
stant in dragon pina cind dispare, 
mergi prin gaura pe care o face. 
Acum esti in sala tronului, mergi 
pina la capatul ei, examineaza 
cutia care dispare, intoarce-te la 
usa, examineaza cealalta cutie, e- 
xamineaza minerul, usa se des- 
chide si... incredibil dar jocul s-a 
terminat. 

Daca faci rolul printesei, in linii 
mari jocul urmeaza cam acelasi 
curs. 

OK, I'll tell ya next month a stuffa 
some kinda adventure. 

See ya soon ! 


P.S. Better dead than red... ya 
simply can't copy ma style (dunna 
why) but anyway don't keep on 
wastin” yez time ! (Danny Kid) 


AMIGA_TOP 


Manchester Utd Europe 
F15 Strike Eagle! 

Full Contact 

Secret of Monkey Island 
Xenon 2 : Megablast 
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IE DE 
SPARGE 


by PETSOFT 


In general soft-ul este protejat. Punerea sau 
scoaterea unei protectii este o dovada de imaginatie, 
intuitie si nu in ultimul rind cunoasterea cal- 
culatorului. Se pot intilni protectii la programele 
utilitare, compilatoare, jocuri si in general la aproape 
toate produsele valoroase (sau mai putin valoroase) 
din domeniu. Pentru incepatori voi prezenta aici 
citeva metode mai simple de protejare... 

Care ar fi prima si cea mai simpla protectie ? Simplu, 
sa nu putem lista programul. Vom lua urmatorul ex- 
emplu: 


10 PRINT AT 10,10; FLASH 1; INK4; 
"”PROTECTII SIMPLE” 

20 BEEP 1,4 : BEEP 1,9: BEEP.75,9 

3) RESTORE 

40 FOR a = 65332 TO 65367: 

50 POKE ax: NEXT a 

60 DATA 6, 10, 197, 33, 0, 0, 17, 100, 0, 229, 205, 
181, 3, 1, 20, 0, 17, 100,0 

61 DATA 225, 198, 0, 237, 74, 229, 198, 0, 237, 82, 
225, 56, 230, 193, 16, 223 

62 DATA 201 

70 RANDOMIZE USR 65332 


READ x 


Cea mai simpla protectie ar consta in modificarea 
atributelor afisarii, adica folosind aceeasi culoare 
pentru INK si PAPER. Este normal ca scriind cu cer- 
neala alba pe o hirtie alba sa nu percepem nimic. 

O alta protectie ar fi ca dintr-o linie editata sa nu se 
priceapa nimic. Deci, dati urmatoarele comenzi: 
LIST (K) / CS+SS / CS+7 / ENTER 

Cam acestea ar fi cele mai simple protectii... 

O alta protectie ar. fi ca in locul unei linii de program 
sa apara un text fals (metoda destul de des utilizata). 
Sa consideram o linie de program: 

10 PRINT AT 10,10; FLASH 1; INK 4;"”PROTECTII 
SIMPLE” 
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Sa facem ca in locul acestei linii sa apara un text 
fals sau ceva hazliu de genul: 
10 GOSUB 150 - NU REUSESTI SA MA SPARGI 
Pentru ca linia sa functioneze normal dar cind este 
listata sa apara acel text, vom tasta linia 10 in alt fel. 
Deci: 
- tastati nr. de linie : 
- tastati 3 spatii 
- tastati apoi linia normala : 
- tastati 28 spatii si : 


10 


PRINT AT 10,10...... 


- REM 

- 10 spatii 

- linia 'funny” : 10 GOSUB i$0 - NU REUSESTI... 
Apoi executati urmatoarele bucle neetichetate: 


FOR x = 23759 TO 23761 : POKE x,8: NEXT x 

FOR x = 23803 TO 23829: POKE x,8: NEXT x 

FOR x = 23840 TO 23847 : POKE x,8: NEXT Ax 
Lansat in executie, programul functioneaza corect. 
Dati comanda LIST si veti vedea efectul. 

O alta modalitate severa de a proteja programul este 
aceea de a evita comanda BREAK in timpul ex- 
ecutiei: 

POKE 23613,0 (valoarea normala 84) 

POKE 23614,60 (valoarea normala 255) 

La majoritatea jocurilor este inserata ca protectie 
linia 0, ce nu poate fi listata (POKE 23756,0) si linia 
10 a devenit linia O ! Tastind POKE 23756,10 vedem 
ca linia 0 a devenit din nou linia 10! 

O alta posibilitate este aceea de a nu 'vedea' decit o 
singura linie si aceea sa contina un text de forma NU 
REUSESTI*SA MA SPARGI. 

5 REM * NU REUSESTI SA MA SPARGI * 

POKE 23756,100 

Cind incercam sa coborim o linie m se va putea 
cobori decit linia 100 - definitiv cu POKE 235€3,8 : 
POKE 23568,12 


In incheiere va prezint uncle locatii cu care sa va 
puteti face propriile protectii: 


POKE 23610,x - x [0 - 22] se deruteaza mesajul de in- 
cheiere al programului; 

POKE 23628,x - x = 255 - RESET la comanda RUN; 
POKE 23561,x - x = 0 - AWKP; 

POKE 23659,x - x = 0 - tiparire în linia 23; 

POKE 23684,x - x = culoare & contrast BORDER. 

lar pentru a modifica mesajul standard la incarcarea 
unui program BASIC: 

10 PRINT "AFISARE MEMORIE LIBERA” 

20 PRINT “MEM. FREE : ';65535 - USR 796 
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15 Mbytes mai putin pe 
hard-disk, dupa o instalare 
care dureaza peste doua ore. 
Acesta este” "WING  COM- 
MANDER 2". in schimb se ob- 
tine o grafica de calitate, o 
intriga mai complexa decit in 
"WING COMMANDER" si 
multe ore de stat in fata cal 
culatorului. 

Dupa succesele obtinute de 


TCS Tiger's Claw, Kilrathi se 
hotarasc sa atace prin 
surprindere "carrier'-ul. 


Navele invizibile de lupta ale 
Kilrathiior reusesc sa  dis- 
tuga  Tigers  Claw-ul, tu 
nereusind sal aperi in fata 
navelor invizibile. Dar abia 
acum incepe problema 

Pierzindu-se discul tau de 
zbor (un fel de cutie neagra), 
nimeni nu va crede ca Kilrathi 
au nave invizibile si vei fi 
acuzat de tradare. Amiralul iti 
va cere demisia, pe care, 
stiindu-te nevinovat, nu o vei 
semna Vei fi atunci degradat 
la rangul de capitan si arun- 
cat in spatele unui birou in 
statia spatiala Canaveron. 

In acelasi timp, populatia de 
pe Gorah Khar, o planeta a 
Imperiului Kilrathiior se revol- 
ta impotriva Imparatului si 
trece de partea Confederatiei 
Pamintene. Pe Gorah Khar 
insa, se gaseau santierele de 
fabricare a navelor invizibile 
ale Kilrathitor, astfel ca prin- 
tul, nepotul imparatului, or- 
dona distrugerea acestora 
pentru a nu cadea in miinile 
rebelilor. Astfel nici un pamin- 
tean nu avea sa mai intilneas- 





ainte si nimeni nu avea 
creada. 

Zece ani mai tirziu pe statia 
spatiala te pregatesti pentru o 
patrula de rutina intr-un Fer- 
ret 

Ferret-ul este o nava foarte 


usoara, foarte rapida, dar 
total improprie pentru luptele 
pe care le vei da cu ea Fer- 
ret-ul are un singur motor, 
care ii permite sa atinga o 
viteza de pina la 500 kps. 
Nefiind echipat cu  "after- 
bumers" nu poate totusi 
depasi aceasta viteza  Dis- 
pune de un tun laser, nici un 
fel de rachete, iar carlinga 
este echipata cu un singur 


VDU care nu permite 
verificarea stricaciunilor 
capatate in lupta 


Cu acest Ferret va trebui sa 
scoti totusi la un momentdat 
din impas 'carmier'-ul pamin- 
tean TCS Concordia, atacat 
de Kilrathi. 

Drept multumire, colonelul 
care comanda Concordia, 
vechea noastra cunostinta de 
pe Tiger's Claw, Lt Jeanette 
"Angel Devereaux, ajunsa 
colonel, iti va obtine de la 
Amiral transferul pe Concor- 
dia ca pilot 

Subiectul jocului fiind foarte 
interesant nu voi povesti mai 
departe lasind pe fiecarezsa il 


descopere singur. Citeva i 


cuvinte despre alte nave inti- 
nite in acest joc. 

- Rapier: 
putin modificata a 


intilnit in "WING COM- 


este o versiune: 
Rapier-ului | î: 


Bogdan Baliuc 


MANDER', dar functional se 
comporta la fel. Este o buna 
nava de atac, dar este foarte 
vulnerabil din flanc; 

- Broadsword: este un bom- 
bardier greu capabil de salturi 
in hiper-spatiu (tasta J), dotat 
cu tunuri pe toate partile si un 
echipaj care le manevreaza 
Viteza sa maxima este de 320 
kps si nu este dotat cu “after- 
bumers”. Este foarte putin 
manevrabil, dar si foarte 
rezistent, putind face fata cu 
succes unui numar destul de 
mare de 'fighter-e inamice. 
Dispune de un tun 'mass 
driver' triplu in fata si de 
tunuri cu neutroni in spate si 
parti. Un bogat sortiment de 
rachete  intregeste bagajul 


- Sabre: este nava de lupta 
model nou, rapida, mane- 
vrabila, cu sori O im- 
presionante si armura 
putemioa. Poate fi incarcata 
cu orice tipuri si combinatii de 
rachete, dispune de tunuri 
"mass driver” si neutronice in 
fata si in spate. 


Un sfat tactic (in special 
pentru cei care s-au oprit la 
misiunea a 13-a): cind doriti 
sa distrugeti o tinta masiva si 
practic  imobila (de exemplu 
un depozit), opriti-va „la 
aproximativ 11000 m de tinta, 
in afara razei de actiune a tin- 
tei. Treceti pe torpile si astep- 
tati luarea in tinta Daca 
scuturile nu sint incarcate la 
maxim inca, asteptati pina ce 
vi se incarca scuturile, apoi 
pomiti spre tinta La 5000 m 
lansati torpila, va intoaceti cu 
180 de grade si va departati 
iar la 11000 m. Apoi repetati 
actiunea Doua torpile sint 
suficiente pentru a distruge 
orice obiectiv. 

De-a lungul a 31 de misiuni 
veti lupta pentru apararea 
dreptatii si a adevarului (suna 
frumos, nu?). Daca veti reusi, 
jocul se va incheia cu o 
frumoasa scena de dragoste 
(frumoasa pentru cei carora 
le plac scenele de dragoste 
intr-un joc de calitate). 
SUCCESI 
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by Popescu Lucian (Graphic Soft) 


Every one's a Wally - 58214201 
(vieti infinite) 

Dynamite Dan - 57035,0 (vieti in- 
finite) 

Rock amd Roll - 41423,0 (vieti in- 
finite) 

Turbo OutRun - 40914,0 (vieti in- 
finite) 

Galaxy Force - 47542,35 (vieti in- 
finite) 

Street Fighter - 41740,24 (timp in- 
finit) 

Chase H.Q. - 47621,0 (timp infinit) 
Zaxxon - 48825,nr. vieti 

Thunder Cats - 314070 (vieti in- 
finite) 

H.A.T.E. - 53246,14 (vieti infinite) 
Ball Breaker II - 35874,0 (vieti in- 
finite) 

Toobin - 61721,0 (vieti infinite) 
Targed Renegade - 62765,viteza 
Tutank - 27783,0 





(NUMAI vieti infinite) 
by Pintilie Emil 


Pentagram - 49917,0 
Knightlore - 535670 
Go to Hell - 63254,0 
Zzoom - 24743,0 
Comando - 31107,200 
Tutanx - 27783,0 
Franx - 28287,200 
Scuba Diwve - 55711,250 
Zip-Zap - 54065,0 
Blade Alley - 58201,0 





by 3 HARD & SOFT 


Cu ajutorul programului urmator, 
curiosii pot vedea ce se afla inscris 
in cei 2K de EPROM ai cal- 
culatorului CIP (incepind cu adresa 
30000). 
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ORG 50000 
LD A,0 

LD HLO 

LD DE,30000 
LD BC,2048 
OUT (238),A 
LDIR 

LD BC,2048 
LDA 

OUT (238),A 
RET 


10 CLEAR 29999 
20 RANDOMIZE USR 50000 


by 3 HARD & SOFT 


Programul urmator permite 
modificarea primilor 16K de RAM 
la calculatorul CIP. 


No comments !... 


LD A1 
OUT (238),A 
RET 


10 INPUT 
modificati" addr 
20 INPUT "Noul continut",cont 
30 POKE 50100,cont 
40 PORKE 
256* INT(addr/256) 
50 POKE 50102,INT(addr/256) 
60 LET contl = PEEK addr 
70 RANDOMIZE USR 50000 


"Adresa unde 


$0101,addr- 
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43. BRIAN BLOODAXE (*) 


POKE  38270,165 POKE 














— SYS 39145 (restart). 
by Danny Kid 
44. BUTCHER HILL 
- nivelul 1 : RATTILEANDHUM 
Sheeeeesh...  Perverted  mym- | (cheat)/MAP (editor) 
phomaniax... Coz it's da coolest guy | - nivelul2: 


ever (again). Some new hot POKEs 
for yer liddle AMIGA (excuse me 
but no time for Iyrix diz time) !... 


WIDEAWAKEAMERICA (cheat) 
/ MAP (editor) 
- nivelul 3 : JOSHUATREE (cheat) 
/MAP (editor) 


39079,165 (vieti si energie infinite) /: 


52. DROPZONE (*) 

- POKE 1007,55 : POKE 1011,132 : 
POKE 1012255 (vieti infinite) / 
SYS 1006 (restart) 


53. DRUID (*) 
- POKE 39271,255 (255 vieti) / 
POKE 35779,76 : POKE 35780,215 
: POKE 35781,139 (poti merge 

pe apa) / 
SYS 5120 (restart) 


54. ELECTRIX (*) 
- POKE 22667,234 : POKE 8192,60 
/ SYS 24576 (restart) 


55. FIRETRACK (*) 
- POKE 12285,234 : 
POKE 12286,234 : 
POKE 12287,234 (luptatori in- 
finiti) / SYS 9216 (restart) 


41. ANARCHY (*) 45. BY FAIR MEANS OR FOUL 

- Pentru a sari peste nivele tastati | - password-urile : 

CHEAT in tabela de high- score. TALON (Dirty Larry) 

- Vieti infinite: PARTY (Steady Eddie) 

10 FOR A = 379 TO 39%: READ | SWORD (Fast Freddie). 

B: PORKE A,B: NEXT A 

20 SYS (379) 46. CHIMERA (*) 

30 END - POKE 1512 (pentru a auzi 


40 DATA 32, 86, 245, 169, 1, 141, 
29, 4, 96, 206, 202, 32, 76, 162, 124 












-POKE 20109,1 
(vieti infinite) 
POKE 27337,96 
(anulare coliziune 
sprite-uri) 
POKE 
(schimba 
camasii) 
PORKE  24753,(0-1$5) 
culoarea pantalonilor) 
POKE 53271,3 : POKE 5327743 
(tipul este cel mai mare) 

POKE  53271,252 POKE 
53271,252 (tipul este mai mic) 
POKE 53271255 :  POKE 
53277,255 (mareste marimea 


24752,(0-15 


(schimba 


tuturor obiectelor) / 
SYS 16384 (restart). 











Chimera) 
POKE 151,1 (pentru a auzi un 


POKE 253,(0-15) (volum) / 
SYS 2564 (restart). 


47. CHUCKIE EGG 1 (*) 
POKE 16851,x (x vieti) / 
SYS 14848 (restart) 


48. CHUCKIE EGG 2 (*) 
- POKE 245771 / 
SYS 18698 (restart) 





49. CYLU (*) 
- POKE 39409,173 (vieti infinite) / 
SYS 49152 (restart) 


50. DENARIUS (*) 

- POKE 38218234 : 

- POKE 38219,234 : 

- POKE 38220,234 (vieti infinite) / 
SYS 6912 (restart) 

- POKE 36727,14 : 

POKE 36731,10 (autofire) / 

SYS 23581 (restart) 


51. DRACONUS (*) 
- POKE 10953,173: 
POKE 9926,173 (vieti infinite) / 
POKE 5426,173 (foc infinit) / 
SYS 2058 (restart) 
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DISK 


INFORMATION 
by VALER software 


urmator este scris 
in ROEaIpUl Vento cete, serie 


calculator 


, cel ocupa si 
totala ca teii căt: si 
($N+) 


poigai Disk_Space_Informa- 
uses Pa asta 


writeln(* Introduceti numarul | write 
unitatii de test: ri) 
er arde A [ 0] - unitatea im- 
miel | 1] - unitatea a! Hari 
Seoul [ 2] - unitatea 
yritela ia 000 .. % 
caca to 10 do 

sai (440*i); 

delay(100); 

nosound 
di Unitat 3 - 

ea nr. *), 

readin(drv); 
writeln; 


if drv=0 then writeln” Ati ales 


hobBIT 


ice Di p:s:2, % 


se 


em Liber: ',pf:5:2,' % ”); 


îi sg downto 2000 do 


aci ); 

delay( 
eat 
end 

end. 


[a 


ere 
stai D elc begin în 





sa Că Pi bea =de ăf; 
1%1 ”); cea df*t00)/ds 
Arzi reserved *); că 2(00.pf 


d; 





urgent calculator 


VIND documentatie utilizare | Cobra cu BASIC+OPUS in 
Commodore 64/128 in limba | stare perfecta de 
romana, 325 lei. functionare. Pret: 25.000 
tel.: 928/14780, 10461 tel.: 9387/286037 
Mircea Gavat h.8-13/21-23 

Deasemenea caut prog. 
VIND imprimanta VIC 1525, | dBASE,MASTERFILE,TER- 
dischete, documentatie. MINATOR 1, 2, RASTAN, 
tel.: 743597 ROBOCOP 2, FIST, SQ1, 2, 
Horia ROBO-ZONE, si alte 


bestiale. —————————— 
Codrin Vultur CUMPAR program aplicativ 
AI.Ghioceilor 13, pentru grafica pentru HC-90 
bl13. ap.19 , cod 5500 ( pe disc ) - fara bisnitari 
"nn Marcel Andrasesou 


Str.Toamnei 8, ap.6, 
Bucuresti 


unitatea implicita *) 
else bu Ati ales 
pitaiea nr. "drv:3); 
drv); 
drv . 


Str.Gloriei 13, bl.G18, sc.B, 
8ap.10 


CAUT numerele 1-8 dn 





. 


C64. 
tei.: 106100 


CUMPAR muta 'mama' si 


VIND, SCHIMB sau CUM- 
PAR programe utilitare si 
jocuri pentru compatibile 
IBM-PC. 

tel.: 167813 


CUMPAR cu 200 lei T- 
Erminator 1 si 2 si SCHIMB 
jocuri Spectrum interesante. 
tel.: 802102 Sorin 
luni+miercuri 
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CUMPAR/SCHIMB 
jocuri/utilitare Spectrum. 
Preturi/oferte rezonabile 
Dorin Rotaru 

P.O.Box 4 - Marasesti 
jud.Vrancea 


SCHIMB utilitare si jocuri pe 
Spectrum 48K; caut Matoh 
day2, Renegate HN, Rambo 
2+3, Robocop 2, Amazon 
Woman. 

tel.: 298956 Andrei 


CAUT jocurile pentru 
Spectrum: Elite,  Robocop 
Terminator 2+3, indiana 
Jones, Hacker 1-5. Trimiteti- 
mi 0 caseta cu jocuri si v-o 
trimit inapoi inregistrata 
OFER:  Forth,  Satancopy, 
Robocop 1, Dan Dare 1, 2 
Target Renegate 


SCHIMBinsoriere televizor 
color la magazinul Unirea - 
februarie 1988 contra CIPO3 
sau cW. 

tel.: 232677 

CUMPAR sau SCHIMB 
jocuri pentru HC-90. CAUT: 
T Ninja, Terminator 1+2, 
Robozone,  Robocop 1+2, 
Toyota, Fist Pret maxim 30- 
50lei pe joc. 

Viorel Trent 

sat Bala de sus/com.Bala 
jud.Mehedinti 


CUMPAR jocuri noi pentru 
C64 ( chsc 1541 ). 

OFERA alte jocuri si ciiverse 
utilitare la schimb. 

CAUT EPROM T.| 2532 sau 
memorie ROM C64. 

tel.: 823197 Matei 8-12 


OFER jocurile Elite, Last 
Ninja 2, Pobocop, Shinobi, 
Taipan,  T Ninja CAUT 
Double Dragon 1+2 
tel.: 274947 Bogdan 


CUMPAR pentru C64: 


VIND Joystiok model 
deosebit si tastatura cu 90 
taste, fara carcasa. 
SCHIMB, VIND si CUMPAR 


programe pentru ATARI 
800XL (caseta). 

tel: 921/33896 Dany 

VIND sau SCHIMB 
prograame Giocuri) pe 
Spectrum şi cumpar 
programul utilitar Saten 
Copy. 

tel: 742385 d18 Cosmin 
(SCHIMB o lista intreaga de 
jocuri Spectrum - n.n.) 
Nicusor Mirica 

Str. Carpati, bLC2, ap.2 
Bailesti - Dolj 


disc 5.25 de 720K. 
Documentatie si soft 

tel.: 189485 

CUMPAR coprocesor 


matematic INTEL 8087 
pentru PC-AT. (lei-valuta) 
tel.: 434504 


DORESC sa fac scimb de 
jocuri compatibile 
Spectrum. 

tel: 222761 Nutu 


OFER la schimb sau VIND 
jocuri foarte noi, DORESC 
sa corespondez; . CAUT: 
Shadow Dancer, Fist, Hero 
Q. 

tel: 95/164935 


CUMPAR sau SCHIMB 
jocuri pentru Spectrum; 
CAUT: Fist 1+2, Renegate 
1-3,  WAW,  Barbarian 2, 





Terminator 
1+2, Predator. 
tel.: 788764 
OFER: Sir Fred, DD2, Robin 
H, Star Riders, Sex, Nipper, 
Lode Runner, negociabile 
sau schimb ou Terminator2, 
Robozone,  Robocop sau 
Lord of Midnight 
tel.: 978/23189 





CUMPAR jocuri 85-92 si 
documentatie Spectrum. 
CUMPAR unitaate disc si in- 
tertata. 

tel.: 966/45778 

VIND programe Spectrum la 
50 leiftata caseta 

tel.: 935/41675 d.16 


VIND jocuri si programe 
Spectrum. CAUT jocuri noi. 
tel.: 967/51121 


Robocor - n.n.) 
Catalin Bogdan 


Str. T Vladimirescu 108, Tir- . 


goviste 








OFER la schimb jocuri 
Spectrum. CAUT: Leonardo, 
Pasocal64, Batman, Opus. 
tel.: 909/21 304 h.14-20 


- VIND/CUMPAR programe 
pentru CPC454, 664, 6128. 
CAUT imprimanta ptHC. 
tel.: 163658 Andy 


DORESC contact cu 
posesori Spectrum pentru 
schimb de programe si e- 
xperienta. 

tel.: 130037 simb.+dum. 


VIND Atari 65XE cu 
casetofon sau schimb con- 
tra HC-90 cu extensie si 


floppy. 
tel.: 975/65331 


CUMPAR  C.lFermanti ULA 
6COOE-7 si Sinclair ZX- 
Spectrum+3  (128K) absolut 
noi. Oferte  serioaase pe 
adresa: 

Bogdan Apostolache 

C.P.  68-85/Bucuresti 


CUMPAR toate numerele 
revistei hobBIT cu exceptia 
nr.2, 3, 4/31 si 1/92; CUM- 
PAR Lifeguard si Pokemania 


te! : 926/77173 

CAUT pentru Spectrum: 
Terminator 2, Lemmings, 
Spike in Transilvanya, 


Robozone Fist, Final Fight, 
Sentinel, SQ2 Doresc ajutor 
pentru  Trantor, si  DD2 


(harta). OFER alte jocuri la 
schimb. 
tel.: 994/36444 Mirel d.18 





| n.n. - NU publicam liste. 
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Pentru 


Hi friends, 

lata ca am aparut din nou. Stiti cum 
sintem noi? 

Ca un schior ce coboara cu 150 
km/h si mai trebuie sa faca si slalom; 
citeodata mai ia si cite o poarta in 
picioare. Asa sintem acum; si asta 
pentru simplu motiv CA S-A SCUM- 
PIT HIRTIA. (rindurile acestea pe care 
le scriu sint din luna aprilie, dar am 
auzit ca in mai . . .). Nu stiu cum vor 
evolua lucrurile, dar daca vreti sa ne 
ajutati, va rog sa ne trimiteti raspun- 
suri la urmatoarele intrebari: 

1. Daca revista ar costa 100 lei si ar 
avea 48 de pagini, ati cumpara-o? 

2. Dar la 48 de pagini si la 125 lei? 

3. Daca nu putem aparea lunar, ce ati 
zice de trimestrial? 

4. Dar o aparitie vimestiaia, cu un 
numar mai mare de pagini si la un 
pret mai mare? 

5. Va foloseste la ceva 'hobBIT'-ul? 


Deci, trimiteti-ne raspunsuri la 
redactie, iar in functie de acestea , noi 
vom mai continua sau nu. 


Asa cum va spuneam in ianuarie, 
vom publica cea mai  'racnita' 
scrisoare si opusa ei (adica "in sus”); 
dar nu acum. Acum vreau sa raspund 
la cit mai multe scrisori primite de la 
prieteni si de la ne-prieteni. 

Deci sa incepem: 


Andrei __Statone/Bucuresti, Cauta 
coduri pentru Bomb Jack 1. 

: Toti cei 
ce trimit odata cuponul, sint abonati in 
anul respectiv; deci si TU. 

, O continuare la Agen- 
da? Cam greu, avind in vedere spatiul 
limitat al revistei. 

Codrin Vultur (Eagle soft ); Harta de la 
Saboteur era doar o parte de ia tine; 
intr-adevar, am uitat sa trecem toate 
punctele pe ea; o face acum |. ). 

Alex Kopatz/ Sibiu: Multumesci 


NUME 
ADRESA 


ORAS 


Plata se va face ramburs. 














Neridicarea coletului duce la pierderea rezervarii. 


Lar 


Ciprian __ Lucaci _ /Onesti: Mai 
'VerminSott' de ce nu te faci tu direc- 


. Sper 
ca am scris bine pseudonimul; poate 
cineva sa-l ajute _trimitindu-i codurile 
de acces de la Satan Il? 
Alexistudent/Bucuresti Este la moda 
sa fi sceptic: " Va trimit alaturat talonul 
|. . .] Nu-mi fac prea mari sperante, 
mute (!) tombole de acest fel or- 
ganizate de alte reviste fiind in mod 
vadit niste simple impartiri de premii 
intre organizatori pe seama naivilor 
care cumpara revistele . . .". Draga 
naivule, de mic copil imi doream sa 
am un CIPOO03, asa ca am sa arunc 
AT-ul asta pe care lucrez si am sa-mi 
impart CIP-ul. Oricum, sa nu mai par- 
ticipi la 'mute' tombole . . . 

Te inteleg, dar 


Anonimus/Brasov: Codurile de la 
Budo? Le vom publica curind. 


Str.Avram  lancuj  Bl.13 ap. 
Petrosani: Doreste sa corespondeze. 
Ciprian Cemav Buc: Daca trimiti har- 
tile, le publicam si ti le trimitem inapoi. 
AstepPOKE-urile. 
Mikesoft/Craiova; Exista si acolo o 
sectie CRC - la Facultate. 

; MegaBasic-ul 


; La Elite 
trebuie sa ajungi cu nava pe statia ce 
graviteaza IN JURUL planetei, nu pe 
planeta. 


am rezolvat-o noi. 


a fost publicat deja. 


Valy Coman/Constanta: Si nai, si noi . 
„ Astep vesti de latine. 

: Buna chestia cu 
banii in plic, numai ca 1.78 lei este pe 
zi; astep restul! 

ini j. Probabil ca cei 7 
ani, cu infiatia din zilele noastre, s-au 
transformat in 2 saptamini. Oricum, 
nu poate fi publicata la 'racnali'. 
Blacktorce/Arad: Scrie-ne mai pe larg, 
te rog, despre clubul vostru. 


DA, doresc un abonament la revista 'hobBIT”, pina la 31 decembrie '92. 


Mirgil Percec/Cugir: Eu nu iau nimic, 
tu nu iei nimic, ei nu ia nimic (con- 
jugarea verbului 'bani”). 
Sepeolt/Petrosani: Listingul din 
GAME CRACKER este direct pe im- 
primanta, din cartus; si culmea, car- 


leon Constaniineacu/ Bug 

codurile de la Lemmings; ce ai zice 
de discul cu inca o suta de nivele? 
TUDOR IONICI/Buc:E bine? 


mite-mi si mie orei please. 
: N-a mers, 


Tri- 


sint copii xerox. 

: Daca nu-ti 
foloseste ce este in revista, cred ca 
trebuie sa treci pe la dub. 
MCisoft+MNhardS.A.I,: Acum facem 
noi rost de AG si venim la voi; am 
publicat schema. 

*[..] va da 
eroare la incarcare, exact la sfirsit ... 
dupa ce apare mesajul "Tape loading 
error n:n' atund faceti astfel: 
Vizualizati eticheta si editati fiecare 
inie, apoi stergeti toate instructiunile 
"oad' din program. In locul blocului 
principal puneti comanda 

SAVE'nume joc"CODE 0001, 1. 
Dupa RUN jocul va merge pertect. 
Gabriel Tenita/Buc; "Almamah dh *. 
Totusi ai trimis talonul. Pot sa-ti spun 
si eu: "Talonul dh *. 

Ovidiu losit/Buc: * Daca nu cistig, in- 
seamna ca pentru asta nu o sa mai 
cumpar nicodata un hobBIT. Am sa 
vorbesc la tipografie sa tiparim mai 
putin cu unu'. 

Merdi De ce nu vi 
la dub? 
Dan _Niculescu/Pioiesti: in numarui 
trecut am publicat un telelfon la care 
se pot lua consultari de acest gen. |! 
mai dau odata:106374 
Dragos lonescu/Tecud; Trimiteti-ne 
actele de infiintare si va facem 
publicitate. 

; Bune, se retin 
pei. u numarul urmator. 
AlexPanaitBuc; La dub, la dubi 

In tus, te rog. 

Alex  Musat/Buzau+Tudor  Petres- 
cu/Buc+Bogdan Mazilu/Pitesti : Nu 
mai am loc, sorry. 

lata ca am raspuns doar la citiva 
dintre cei ce mi-au scris; putini, dar in- 
vatam pe parcurs 

In incheiere, nu uitati sa ne trimiteti 
raspunsurile voastre. Acum este 
hopul "AL MARE”. 

Va astept scrisorile, si bune, si rele; 
oricum, aveti in hobBIT si in mine un 


prieten. 
BYE, 


EGA LISI 


VCARUAREIZ 
ECRANULUI DIN 


PATRU BUCATI 
by Lazarescu Sarchis - 
EAGLESOFT 


Programul urmator este un 
hibrid de BASIC si cod masina 
care are rutina de incarcare si de 
transformare a unei imagini nor- 
“male, pe care o incarca, intr-un 
fisier ce se poate incarca cu 
mtina de cod. 

Se asteapta o imagine fara 
header pe care programul o va 
incarca si apoi o transforma in 
aproximativ 4 minute. Apoi sal- 
veaza rutina de incarcare si im- 
aginea transformata. 

Rutina de incarcare se poate 
asambla cu un asamblor din 
seria GENS 3M, asamblorul 
OPUS sau oricare altul de la 
adresa 40960. 

Programui in cod masina este 
stmcturat astfel: 

40960 - 41215 - loader propriu 
zis 

41216 - 41229 - incarca o im- 
agine normala fara header 


41230 - 41241 - salveaza im- 
aginea transformata 
41242... - stiva 


Atentie ]* tastare r-ntm a nu 
gresi pozitionarea -tichete:or | 

Propramu! functioneaza bine, 
fiind upsit de erori, asi ca nu e€x- 
ista nici o dificultate ki punerea 
sa in functiune. 


LD AR OR 


saăsasuts 
- 
E; 


100 IN AAFE 


I6OBREAK  JPNZ,POINT 
170 START CALL 4 05E7 
180 JR NC,BREAK 
190 LD HL,4 0415 

200 WAIT  DINZ WAIT 
210 DECHL 


220 LD A,H 

230 ORL 

240 JR NZ,WAIT 
25 CALL 4 0583 
260 JR NC,BREAK 
270LEADER LDB49C 
280 CALL î SE3 
290 JR NC,BREAK 
30C LD At C6 

31 CPB 

321 JR NC,START 
330 INCH 

340 JR NZ,LEADER 
350 SINCRO LDBAC9 
360 CALL 4 OSE7 
370 JR NC,BREAK 
380 LD A,B 

390 CP 4 D4 

400 JR NC,SINCRO 
410 CALL 4 05E7 
420 JP NC,POINT 
43% LD A,C 

440 XOR 403 

450 LD CA 

460 LD H,4 00 

470 LD BA BO 

480 CALL PAPER 
4% LD DE,4 4880 
500 PUSH DE 

510 LD DE,4 4010 
520 PUSH DE 

53% LD DE, 4890 
540 PUSH DE 

550 LD IX ,4 4000 
560 LD B,4 04 
ST0LEFTI PUSH BC 
580 PUSH IX 

590 LD D,4 0C 


6OORIGHTI PUSHIX 


€ 


LD E,4 08 


€ MGHT2 PUSHIX 


64 LD B4 10 
640ATTR  PUSHBC 
650 CALL PAPER 
660 JR NC,POINT 
670 POP BC 

680 LD (IX+ 0),L 
690 INC IX 

700 DINZ ATTR 
710 POP IX 

720 DEFB 4 DD,4 24 
730 DECE 

740 JR NZ,RIGHT2 
750 POP IX 

760 DEFB 4 DD,4 7C 
770 AND + 13 

780 LD BA 

790 DEFB 4DD,7D 
800 AND + BO 

810 RLCA 

820 RLCA 

33% RLCA 

840 OR B 





OR 440 


333358 


5 
ş 
x 
a 


LD BA 


33353838 


DEFB A DD,t 6F 
1000 DECD 

1010 JR NZ,RIGHT! 
1020 POP IX 

1030 DEFB 4 DD,4 7C 
1040 AND 4 18 

1050 RRCA 

1060 RRCA 

1070 RRCA 

1080 OR + 38 

1090 DEFB 4 DD,4 67 
1100 LD B/4 10 
MIOLEFT2 PUSH BC 
1120 LD Bt OC 

1130 PUSH IX 
1I4OINFO  PUSHBC 
1150 CALL PAPER 
1160 JR NC,POINT 
1170 LD (IX+ O0),L 
1180 LD BC,4 0020 
1190 ADD IX,BC 
1200 POP BC 

1210 DINZ INFO 
1220 POP IX 

1230 INC IX 

1240 POP BC 

1250 DINZ LEFT? 
1260 POP BC 

1270 POP IX 

1280 DINZ LEFTI 
1290POINT LD SP,(STACK) 
1300 EI 

1310 RET 
1320PAPER LD B,4B4 
1330 LD L,401 
1340BIT!1 CALL OSE3 
1350 RET NC 


1420 LD IX,4 4000 
1430 LD DE,4 LBO0 
1440 LD AFF 
SCF 

CALL 4 0556 
RET 














LD LX, 8000 
LD DB, 1B00 
LD A,4 FF 
CALL 1218 
RET 

1530 STACK  DEFS 100 


10 BORDER 0: INK 9: 


PAPER O : CLS 

20 CLEAR 32767 : LOAD 
"”" CODB 

% CLS PRINT AT 


11,11,"START TAPE" 
40 RANDOMIZE USR 41216 
30 LET ADR = 32768 

60 FOR P= 1LTO4 

70 FOR Q= 1LTO2 

80 READ A,B 

90 GO SUB 160 

100 NEXT Q 

110 READ C 

120 GO SUB 250 

130 NEXT P 

140 DATA 16384, 7, 18432, 3, 
22528, 18576, 3, 20496, 7, 22928, 
16400, 7, 18448, 3, 22544, 18560, 
3, 20480, 7, 22912 

150 SAVE  “LOADER” CODE 
40960,236 : PRINT 40; 

“Start tape then press any key." : 
PAUSE O : RANDOMIZE USR 
41230 : CLS : PRINT AT 
11,0; PENTRU A RULA 
PROLOSITI: CLEAR 40950 : 
RANDOMIZE USR 40960 
PAUSE 0 : GOTO 3% 

160 FOR C=0TOB 

170 POR D= 0T07 

180 POR E = 0 TO 15 


2350 POR F = 0 TO 15 
260 POR V=O0TOlLlL 





MEGA LISI 









































260  JPP,SC S0  DECD 710 EX AF,AF 
TURBO 270  LDBA2F 99 DI 720  LDB4B2 
SA VE'N'LOAD 280 SD DINZ SD 100  LDA,ROF 730 SI? LDL,OL 
by Bogdan Razvan Baciu 290  OUT(4FE)A LIO  OUT(4FE)AA 140 SIO CALL S12 
300  LDAROD 120 LD HL,4 0S3R 159  RETNC 
Rutina SAVE executa o | 310 LDB137 130  PUSHHL 760  LDAA4CB 
320 SE DINZ SE 140  INA(+ FE) 770  CPB 
salvare cu densitutea des- | „o OUT(4FE)A 150  RRA 730 RLL 
tul de mare de la SIART | 40 LDBC4480E 160 AND 420 790 LD B,& BO 
ADRESS cu lungimea | 350 EXAF,AF 170  OR+402 800  JPNC,SIO 
LENGTH. Rutina LOAD | 360 LDLA 180  LDC,A SIO LDAH 
370  JPSH 190 CPA 820  XORL 
CACI incarcarea | sos LDAD 200 Si RETNZ 830  LDH,A 
blocului salvat cu rutina | 399 ORE 210 S2 CALL S13 840 SI! LDA,D 
anterioara. Avantajele | 400 JRZ,SI 220  IRNC,SI 850 ORE 
densitatii marite constau 410  LDL„AIX+0) 230  LDHLA 0415 560  JRNZ,S5 
420 SG LDA,H 240 S3 DINZ S3 870  LDAH 
În aievoratea timpului de 250  DECHL 830  CP4OL 
incarcare a umui program 260  LDAH 890 RET 
si odata cu aceasta, mic- 270 ORL 900 SI2 CALL S13 
sorarea spativiui pe care-i 280  IRNZ,S3 910  RETNC 
ocupa pe caseta, cit si fap- 290 CALL SI2 920 S13 LD AOL 
| | 300 IRNCSI 930 S14 DECA 
tul ca reprezinta o protec- 310 S16 LDBA9C 940 JR NZ,SI4 
tie chinuitoare pentru cei 320 CALL S12 950 ANDA 
lcare mu detin un proaran 330  IRNCSI 960 S15 INCB 
340  LDAAC6 m  RETE 
de copiere ln gemul lui 350  CPB 980  LDAATE 
SATANCOPY. 360  JRNCS2 990  INA,(+FE) 
Se recomanda asamblarea | 550£L DINZ SL 370 INCH lODO RRA 
mutinelor dupa adresa | 560SM OUT(4FE)A 380 JR NZ,S16 OO RETNC 
39767. 570  LDBA2A 390 S4 LD B% C9 1020  XORC 
580 JR NZSI 400 CALL Si3 1030 AND 420 
0  DBCB 410  JRNCSI 1040 JR Z,S15 
600  XORA 420  LDA,B LOSO  LDA,C 
610 INCA 430  CP4D4 1060  CPL 
SAYE 620SN RLL 440 IRNC,S4 I0O70  LDC,A 
630  JPNZ,SK 450 CALL S13 1080 AND 407 
LO ORG 60000 40  DECDE 460  RETNC 1090 OR 408 
20 ANDA 650  INCDB 470 O LDAC IL0OO  OUT(4FE)A 
30 LD A,255 660  LDBAR3L 4830  XOR 803 ILIO  SCF 
40  LDIX,STARTADRESS | 670 LDART7F 490  LDCA LI20 RET 
59  LDDELENGTH 680  INA,RFE) 500  LDH,O00 
60  LDHL,4OS3F 690  RRA 510  LDB4BO 
70  PUSHHL 700  RETNC 520 JR SI7 
80  LDHL,„&LF3O 710  LDA,D 530 55 EX AR,AR 
99  BIT7A 70 INCA 40 JR NZ,S6 
100 JR Z,SB 130  JPNZ,SP 550 JR IIC,S7 
IO  LDHL,t OC98 740 LDBR38 560  LD(IX+0)L 
120 SB EX AFAAF 750 50 DINZ SO 570 JR S8 
130  INCDE 760 RET 580 s6 RLC 
140  DECIX 599  XORL 
150 DI 600  RETNZ 
160  LDA,H02 GIO LDA 
I70  LDBA LOAD 620  RRA 
180 SC DINZ SC 630  LDCA 
190  OUT(4FE)A IO ORG 60000 640  INCDE 
200  XOR4OF 20 SCF 650 JR S9 
210  LDB4A4 30 OLD A,255 660 S7 LDA([X+0) 
220  DECL 40  LDIX,STARTADRESS | 670 XORL 
230  IRNZ,SC s0  LDDELENGTH 680  RETNZ 
240  DECB 60  INCD 690 S8 INCIX 
250  DECH 70 O BXAFAR 700 s9 DECDE 





70 lei 


